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USING THE 8049 AS AN 80 COLUMN 
PRINTER CONTROLLER 

I. INTRODUCTION 

This Application Note details using INTEL'S 8049 
microcomputer as a dot matrix printer controller. 
Previous INTEL Application notes, (e.g. AP-27 and 
AP-54) described using intelligent processors and peri- 
pherals to control single printer mechanisms. This 
Application note expands upon the theme established 
in these prior notes and extends the concept to include 
a complete bi-directional 80 column printer using a 
single line buffer. For convenience this application 
note is divided into six sections: 

1. INTRODUCTION 

2. PRINT MECHANISM DESCRIPTION 

3. INTERFACE CIRCUITRY 

4. SOFTWARE 

5. CONCLUSION 

6. APPENDIX 

Over the last few years 80 column output devices have 
become somewhat of a defacto output standard for 
business and some data processing applications. It 
should be mentioned that by no means is the 80 
column format a "new" standard. 80 column computer 
cards have been around for more than 20 years and 
perhaps the existence of these cards in the early days 
of computers is why the 80 column format is a standard 
today. 

Many CRT terminals use the 80 by N format and 
to complement this a number of printers use this same 
format. One reason, aside from those historic in 
nature, for the 80 column standard is that 80 columns 
of 12 pitch text on standard typewritten 8.5 inch by 
11 inch paper completely fills up an entire line and al- 
low ample room for margins. So, the 80 column format 
is an aesthetically convenient format. 

Printers are usually divided into either impact or non- 
impact and a character or line oriented device. Impact 
printers actually use some type of "striker" to place 
ink on the paper. More often than not the ink is 
contained on a ribbon which is placed between the 
striker and the paper. Non-impact printers use some 
means other than direct pressure to place the charac- 
ters on the paper. This type of printer is very fast be- 
cause there is very little mechanical motion associated 
with placing the characters on the paper. However, 
because the paper is required to be treated with a 
special substance, it is not as convenient as an impact 
printer. 

Character printers are capable of printing one charac- 
ter at a time. (Any standard home typewriter is in 
effect a character printer.) Line printers must print an 



entire line at a time. Line printers are usually quite 
a bit faster than character printers, but they usually 
don't offer the print quality of character printers. 

In recent years, the "computer boom" has caused the 
price of printers to tumble markedly. High volume 
production, competition, and the tremendous demand 
for reliable print mechanisms have all contributed to 
the decrease in price. Because of their simplicity, line 
printer mechanisms have decreased in price faster 
than other mechanisms. Therefore, when high quality 
print is not needed, a line printer is a very attractive 
choice. 

This application note describes how to control an 80 
column impact-line printer with an 8049/8039. The 
complete software listing is included in the appendix. 
The 8049 is the high-performance member of the MCS- 
48™ microcontroller family. The Processor has all of 
the features of the 8048 plus twice the amount of pro- 
gram and data memory and an 11MHz clock speed. 
For details about the 8049, please refer to the MCS-48 
user's manual. 

II. PRINT MECHANISM DESCRIPTION 

The model 820 printer is available from C. ITOH 
ELECTRONICS (5301 BEETHOVEN STREET, LOS 
ANGELES, CA 90066). This inexpensive and simple 
printer is ideal for applications requiring 80 columns 
of dot matrix alpha-numeric information. 

The model 820 printer is comprised of three basic 
sub-assemblies; the chassis or frame, the paper feed 
mechanism, and the print head. The diagram in Fig- 
ure 2.1 gives the physical dimensions of the basic print 
mechanism. The basic chassis for the printer is con- 
structed out of four sheet metal stampings. These 
stampings are screwed together to form a sturdy base 
on which all other components of the printer are 
mounted. 

The paper feed mechanism consists of a toothed wheel, 
a solenoid, a tension spring, and a "catcher." When the 
solenoid is activated, the arm of the solenoid pulls 
against the spring and drags over the toothed wheel. 
When the solenoid is released, its arm is pulled by the 
spring, but this time the arm grabs a tooth on the 
wheel and pulls the wheel forward which advances the 
paper. A "catcher," which is merely a piece of plastic 
held against the toothed wheel, is added to assure 
that the paper is advanced only one "tooth" position 
each time the solenoid is activated. 

The print head is comprised of seven solenoids which 
are mounted in a common housing. The solenoids are 
physically mounted in a circle, but their hammers are 
positioned linearly along the vertical axis. These 
seven vertically positioned hammers are the strikers 
that actually do the printing. 
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Figure 2.1 Physical Dimensions of C. ITOH Model 
820 Printer 
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Figure 2.2 "Formation" of a Character by a Dot 
Matrix Printer 



A motor, mounted toward the back of the print mech- 
anism, drives a rubber toothed belt which turns a rol- 
ler guide. A motor turns a guide that moves the 
print head from right to left and left to right. By prop- 
erly timing the current flow through the solenoids 
while the print head is moving across the paper, char- 
acters can be formed. Figure 2.2 illustrates how the 
dot matrix printer "forms" its characters. 

The timing pulses for the print head mechanism are 
generated by an opto-electronic sensor. This sensor, 
located on the left side plate of the printer, informs 
the print controller when to apply current to the print 
head mechanism. This "on board timing wheel" assures 
that all characters will be properly spaced and that 
they will all be "in-line" in a vertical sense. 

The print mechanism is also equipped with two ad- 
ditional sensors. These are the left home position 
sensor, located near the left front of the mechanism, 
and the right home position sensor, located near the 
right front of the print mechanism. These sensors 
simply tell the controller when the print head is in 
either the left or right home position. A complete 
timing chart for the printer is shown in Figure 2.3. 

III. INTERFACE CIRCUITRY 

The manual supplied with the printer recommends 
some specific interface circuitry. For the most part 
the circuitry used in this Application Note followed 
these suggestions. The circuitry needed to drive the 
print head solenoid is shown in Figure 3.1. This same 
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Figure 2.3 Timing Diagram of C. ITOH 
Model 820 Printer 
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Figure 3.1 Solenoid Drive Circuit 

(Eliminate Fb for Line Feed Solenoid) 

circuit is used to drive the line feed solenoid except 
that the current limiting resistor R2 is eliminated. 
This resistor is not needed because the line feed solen- 
oid is physically much larger than the print head sol- 
enoids and can tolerate much higher levels of current. 

The print head drivers are connected to an 8212 
latch. The latch is interfaced to the BUS PORT on the 
8049 and is enabled whenever the WR pin and the BIT 4 
of PORT 1 are coincidentally low. The line feed driver 
is connected to PORT 1 BIT 1 of the 8049. 

Note that the driver is simply a Darlington transistor 
that is driven by an open collector TTL gate. Resistor 
R2 is the current limiting resistor and diode D, capa- 
citor C, and resistor R3 are used to "dampen" the in- 
ductive spike that occurs when driving solenoid S. 
This circuit is repeated for each of the seven solenoids 
in the print head. It should be mentioned that, al- 
though the type of Darlington transistor needed to 
drive the print head is not critical, a collector current 
rating of at least 5 amps and a breakdown voltage 
(Vceo) of at least 100 volts is needed. Transistors that 
do not meet these requirements will be damaged by 
the inductive kickback of the solenoids. 

As mentioned in Section 2, the printer provides some 
sensor interface signals that are derived via three opto- 
electronic sensors. These signals must be amplified 



and converted to TTL levels in order to interface to 
the controller. This conversion is accomplished with a 
simple voltage comparator. Figure 3.2 is a schematic 
of the sensor interface circuitry. Note that hysterisis 
is employed on the voltage comparators. This elimi- 
nates "false" sensing. 
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Figure 3.2 Example of Sensor Circuit 

Motor control is accomplished by using a Monsanto 
MCS-6200 optically-coupled TRIAC. This part is ideal 
in this kind of application because it provides a simple 
means of controlling a line-operated motor without 
sacrificing the isolation needed for safe and reliable 
operation. Figure 3.3 is a schematic of the motor driv- 
ing circuit. 
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Figure 3.3 Motor Driving Circuit 
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To interface 8049 to the outside world one 8212 latch 
was used. This latch was connected to the BUS PORT 
and is enabled by an INS or MOVX instruction coin- 
cident with BIT 4 of PORT 1 being in a logical zero 
state. In this configuration, the 8212 was used to hold 
the data until read by the 8049. The connection of 
the 8212 to the 8049 is shown in Figure 3.4 and the 
parallel port timing diagram is shown in Figure 3.5. 
The 8212 parallel port was connected to the LINE 
PRINTER OUTPUT of an INTELLEC MICROCOM- 
PUTER DEVELOPMENT SYSTEM. 



INPUT 
LINES 




Dl, 

Dl2 

Db 
DU 
Dfe 
Die 

Dl7 8212 
DIs 



DOi 
DO2 
DOs 
DO4 
DO5 
DOe 
DO 
DO» 



DS, 
DS2 
INT 



~3 



BUSY <- 



DBo 
DB, 
DB2 
DBs 
DB4 
DBs 

DBe 8049 
DB? 



RD 
PL 
TO 



Figure 3.4 Connection of the 8212 
input Port to the 8049 
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Figure 3.5 Parallel Port Timing 
IV. SOFTWARE 

As mentioned in Section 2, the bulk of the timing 
needed to control the printer is actually generated by 
the printer itself. Therefore, all the software must do 
is harness these timing signals and turn on and off the 
right solenoids at the right time. 

To make things easy, the software needed to drive 
the printer is broken into four separate routines. 
These are: 

1. INITIALIZATION ROUTINE 

2. INPUT ROUTINE 

3. OUTPUT ROUTINE 

4. LOOKUP ROUTINE 

The INITIALIZATION ROUTINE turns the motor on 
and checks the opto-electronic sensors. If a failure is 
found, the routine turns off the motor and loops on it- 
self. This insures that the print mechanism is cycled 
properly before characters are accepted for printing. 



This routine also initializes all of the variables used by 
the printer. 

The INPUT ROUTINE reads the characters that are 
present in the 8212 input port and writes them into the 
8049's buffer memory. The routine then checks the 
characters to see if a CARRIAGE RETURN (ASCII 
OCH) has been transmitted. If a CR is detected, the 
input routine automatically inserts a LINE FEED as 
the next character. When the input routine detects a 
LINE FEED, it stops reading characters and sets the 
direction bits and the print bit in the status register. 
This action evokes the OUTPUT ROUTINE. A detailed 
flowchart of the INPUT ROUTINE is shown in Figure 
4.1. 
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Figure 4.1 Input Routine Flowchart 
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The OUTPUT ROUTINE initializes both the input and 
output buffer pointers and then reads the characters 
from the 8049's buffer memory. After a character 
is read the OUTPUT ROUTINE calls the LOOKUP 
ROUTINE which reads the proper bit pattern to form 
that character. This bit pattern is then used to strobe 
the solenoids. After each character is printed, the 
OUTPUT ROUTINE calls the INPUT ROUTINE and 
another character is placed into the buffer memory. 
This type of operation guarantees that the input buffer 
cannot "overrun" the output buffer. A flowchart 
of the OUTPUT ROUTINE is shown in Figure 4.2. 
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Figure 4.2 Output Routine Flowchart 
(V-l. HANDLING THE I/O BUFFER 

Since the C. ITOH Model 820 printer is capable of 
printing in both directions the 80 character buffer 
must be manipulated in a manner as to allow maximum 
input-output efficiency. This is accomplished by rever- 
sing the "direction" of the buffer memory each time 
the printer is printing from right to left. For simpli- 
city, if it is assumed that the buffer is only five bytes 
long, Figure 4.3 can be used to help explain the buffer 
operation. 



Initially the input buffer pointer is loaded with the ad- 
dress of the first location in the buffer memory. As 
characters are read, the input buffer pointer incre- 
ments and fills the buffer memory as shown in Figure 
4.3(b) through 4.3(f). When a CARRIAGE RETURN- 
LINE FEED (CRLF) is encountered the input buffer 
pointer and the output buffer pointer are reset back to 
the first location. The OUTPUT ROUTINE then reads 
the character from the first location in the buffer mem- 
ory, increments the output buffer pointer and calls the 
INPUT ROUTINE, which reads another character 
from the parallel input port. 

The OUTPUT ROUTINE reads the entire buffer, in- 
serting space codes (20H) after a CR is detected, 
and the input buffer pointer follows the output buffer 
pointer as they "increment" up to the buffer memory. 
When the OUTPUT ROUTINE has printed the last 
character or space, the output buffer pointer and the 
input buffer pointer are set to point at the last location 
of the buffer memory. The OUTPUT ROUTINE then 
reads the character from the last location of the buffer 
memory and proceeds to "decrement" down the buffer 
memory. Space codes are inserted until a CR is found. 
Figure 4.3(1) to 4.3(0). 

The input buffer pointer follows the output buffer 
pointer just as in the previous case. When the last, 
or in this case the first character is printed, the output 
buffer pointer and the input buffer pointer are set to 
point at the last location of the buffer memory. Now 
the pointers are "decrementing" down the buffer 
memory, but the printer is actually printing in a "nor- 
mal" left to right fashion. 

When the last character or space is printed, the output 
buffer and the input buffer pointer are set to the first 
location of the buffer memory and printing takes place 
in a reverse or right to left manner. After this line 
is printed, the print head and both buffer pointers are 
in the same position as they were initially. So, four 
lines must be printed before the buffer pointers and 
the print head complete a cycle. Each of these sit- 
uations is handled separately by four different sub- 
routines: CASEO, CASE1, CASE2, and CASE3. 

IV M. TIMING 

All critical timing for the printer controller came from 
two basic sources; the timing sensors on the printer 
and the internal eight-bit timer of the 8049. 

The internal timer of the 8049 was used to control 
the length of time the solenoids were fired (600 
microseconds) and was also used as a "one-shot" to 
align the printer. This alignment is needed to make 
the "backward" printing line up vertically with the 
normal or forward printing. The "one-shot" is used to 
measure the time from the last column of the last 
character position until the right sensor flag is covered. 
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Figure 4.3 I/O 



4.3P OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3Q OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3R OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3S OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3T OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3U OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3V OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3W OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3X OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3Y OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3Z OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3AA OUTPUT BUFFER 

BUFFER MEMORY 

INPUT BUFFER 

4.3BB OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3CC OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

4.3DD OUTPUT BUFFER 

BUFFER MEMORY 
INPUT BUFFER 

Buffer Handler 



I 



F 


G 


M 


L 


K 




A 








w 

T 













J 


M 


L 1 


K 1 
__ 1 


A 








V 





N 


M 


L 


K 










A 








I— 




°l 


N 


M 


L 


K 










A 






T 









N 


M 


L 


p 








A 






w 








I °l 


-!- 

i 


M 


Q 


p 






A 






Y 













N 


R 


Q 


p 




A 








V 










1 


s 


« 


Q 


p 


HH 










V 










T 


s 


R 


Q 


p 


A 


w 

T 








T 


s 


R 


Q 


p 


A 




Y 






u 


s 


R 


Q 


I- 1 




A 




Y 




u 


V 


R 


Q 


p 






1 




Y 


u 


V 


W 





p 








A 




I " 


V 


W 


1" 




A 

Y 


U I V 


w 


X 


Y 



6 



AP-91 



When the print head reverses direction and the right 
sensor flag is uncovered, the timer is then used to 
determine where to start printing in the reverse 
direction. 

The timer and the print wheel on the printer are used 
to determine when to place a character. The strobe 
from the print wheel informs the 8049 when to fire the 
solenoids and the timer allows the proper spacing 
between the characters. 

V. CONCLUSION 

Although the full speed of the 8049 was not used 
in this application, the high speed of the 8049 makes it 
possible to "fine-tune" any critical timing parameters. 
Additionally, the extra available CPU time could be 
used to add an interrupt driven keyboard and display, 
such as the ones discussed in AP-40, to the printer. 
This would allow the printer to function as a complete 
"terminal". 

Very little attempt was made to optimize the software, 
but still the entire program fits easily in 1.25K of 
memory; 750 bytes for printer control and 500 bytes 
for character lookup. Adding lower case to the printer 
would require an additional 500 bytes of lookup table. 
The remaining 250 bytes should be used to add "user" 
features such as tabs, double width printing, etc. 

The high speed of the 8049 combined with its hard- 
ware and software architecture make it an ideal choice 
for controlling an 80 column, bi-directional line printer. 
The I/O structure of the 8049 minimizes the amount 
of external hardware needed to control the printer and 
the large amount of on board program and data mem- 
ory allow quite a sophisticated control program to be 
implemented. 
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APPENDIX B. MONITOR LISTING 
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:THIS PROGRAM IMPLEMENTS CONTROL OF THE C.ITOH MODEL B2B 
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;8212 OUTPUT PORT OH BUS = OUTPUT TO SOLEHOID HAMMERS 

:TI INPUT = CHARACTER PDSITIONIHC SEHSOR OH PRINTER 

! T B INPUT = INTERRUPT FROM 8212 IHPUT PORT 

;PORT IB « MOTOR ON.. LOU = ON 

;PORT 11 = LINE FEED STROBE > LOU = OH 

;PORT 16 = LEFT MARGIN SENSOR, LOW WHEN COVERED, HICH U HE N OPEN 
'PORT 1? = RIGHT MARGIH SEHSOR. LOU WHEN COVERED, HIGH UHEH OPEH 
!T1 = PIN 2 OF LH339, PRIHT UHEEL SEHSOR 
:PORT 16 = PIH 13 OF LM339 
;PORT 1? = PIN 14 OF LH339 

.:*4*44*4**«***44*4*44*4*44***44*4*44****4*4*«444«*4**«44****44**« 

.'SYSTEM equates 



•IB BE 


22 


IHBUF 


EOU 


R B 


.POINTS AT IHPUT LOCATIOH 


BBB1 


23 


OUTBUF 


EQU 


Rl 


iPOINTS AT OUTPUT LOCATIOH 


3 B B 2 


24 


SAVPHT 


EQU 


R2 


;STATUS FOR PRIHTIHG 


BBB3 


25 


STBCHT 


EBU 


R3 


> STROBE COUHTER 


BBB4 


26 


TEMPI 


EBU 


R4 






BBB5 


27 


STATUS 


EBU 


R5 


JBIT 


B b L I HE FEED SET 




23 








;BIT 


1 = PRIHT 




29 








1 BIT 


2 = COHTIHUE 




3B 








; BI T 


3 = CR FOUHD 




3 1 








; bi T 


4 = LF FOUHD 




32 








i BI T 


5 = LF FOUHD IN PRIHTIHG 




33 








J BI T 


6 = PRIHT DIRECTION 




34 








SB = 


RIGHT TO LEFT 




35 








) 1 = 


LEFT TO RIGHT 




36 








S BIT 


7 = BUFFER LOAD DIRECTIOH 




37 








l B = 


FIRST TO MAX 




33 








i 1 = 


MAX TO FIRST 


BBB6 


39 


LI NCNT 


EBU 


R6 


■■THE 


LINE COUHTER 


BBB? 


4B 


J U N K 1 


EBU 


R7 






a B 6 F 


4 1 


MAX 


EBU 


6FH 


J MAX 


BUFFER LOCATIOH 


BB2B 


42 


FIRST 


EBU 


2 B H 


.iBOTTON OF BUFFER 




43 


*E JECT 











9 



AP-91 



LOC 


OBJ 


SEQ 




SOURCE 


STATENEHT 








44 










BBBB 




45 




ORG 


0B0H 








46 














4 7 




j JUMP 


OVER THE INTERRUPT LOCATIONS 






4 8 










3 B B a 


1 5 


4 9 




DIS 


I 


JDON'T USE INTERRUPTS 


3B a i 


34BB 


5B 
5 1 




ONP 


8 G I H 


JBEGIN THE PROGRAM 


3 9ft 




52 




ORG 


BAH 








53 














54 




.: S T A R T THE PROGRAM 








55 














56 




J LOOP 


UNTIL THE BUFFER 


FILLS UP 






57 




t 






BB 0ft 


FD 


58 


PR H T : 


MOV 


A , STATUS 


; GET THE STATUS 


BBBB 


321 1 


59 




JB1 


LPRHT 


:1F PR1HTING, CONTINUE 


BBBD 


34BB 


6B 




CALL 


LDBUF 


: READ INTO THE BUFFER 


BBBF 


B4 BA 


6 1 




JMP 


P R HT 


; LOOP 






62 
63 




; T HI S 


ROUTINE PRINTS A 


LINE 






6 A 




.* JT FIRST SAVES THE STATUS 






65 




.•AND 


THEN DETERMINES WHICH DIRECTION TO PRINT 






66 




! AND 


HOW TO MAHIPULATE 


THE BUFFER 






6 7 










BB 1 1 


94 a 


68 


L P R N T ! 


JMP 


STACHK 


JGO FIX UP THE STATUS 


3813 


F224 


69 


L P R HT 1 


JB7 


CASE23 


JJUMP TO CASE 2 AND 3 


BB 1 5 


B4 1 7 


7B 
7 i 




JMP 


CASEB1 


;JUMP TO CASE B AHD 1 






7 2 




;CASEB1, LOADING THE BUFFER FROM FIRST TO MAX 






73 










BB 1 7 


892B 


7 4 


C A S EB 1 


NOV 


OUTBUF, #FIRST 


.:SET UP OUTBUF 


8B19 


882B 


75 




NOV 


IH3UF, »F1RST 


;SET UP IHBUF 


BB1B 


FA 


76 




NOV 


A , SAVPNT 


;GET THE SAVED STATUS 


3B 1 C 


94DC 


77 




CALL 


MO T ON 


; TURN OH THE MOTOR 


BB 1 E 


D252 


73 




JB6 


CASE 1 


JPRINT foward 


BB 28 


94 B3 


7 9 




CALL 


PRHT8K 


S SET READY TO PRINT BACKWARDS 


BB22 


B4 3 1 


3 8 

8 1 




JMP 


CASES 


;PRIHT BACKWARDS 






8 2 




i CASE 


23, LOADIHG BUFFER 


FROM MAX TO FIRST 


B B 2 4 


B 6 F 


8 3 
8 4 


\-> rl & t_ d J 


NOV 


OUTBUF , *HAX 


JSET UP OUTBUF 


3826 


B86F 


35 




NOV 


I N 8 U F .. »MAX 


JSET UP IHBUF 


8B28 


FA 


86 




NOV 


A SAVPNT 


JGET THE PRINT STATUS 


BB29 


94 DC 


87 




CALL 


BO TON 


i TURN OH THE MOTOR 


3B2B 


D2C2 


83 




J B6 


CASE3 


JPRINT LEFT TO RIGHT 


BB 2D 


94B3 


89 




CALL 


PRNTBK 


JGET READY TO PRINT BACKWARDS 


3B2F 


B43D 


9B 




OMP 


CASE 2 


;PRIHT RIGHT TO LEFT 



9 1 

92 tEJECT 



10 



AP-91 



LOC 


OBJ 


SED 




SOURCE 


STATEHEHT 


BB31 


Fl 


93 


CftSEB : 


HDV 


A , BDUT BUF 


BB32 


3491 


94 




CALL 


F XPRNT 


BB34 


Bl 2B 


95 




HDV 


BOUTBUF , I2BH 


BB36 


F242 


96 




0B7 


FDC 


BB38 


94 5E 


97 




CALL 


I HCTST 


BB3A 


C6rtE 


98 




JZ 


UATCHD 


BB 3C 


BF 2B 


99 




HDV 


JUNK 1 , * 28H 


BB3E 


9463 


1 BB 




CALL 


G TPRHT 


BB4B 


B431 


1 B 1 




JHP 


C ASEB 


B842 


BF 2B 


1 B2 


FDC '■ 


HDV 


1 1 1 || li « « n n 1 1 

JUNK 1 . B2BH 


BB44 


9463 


1 B 3 


FDC 1 ! 


CALL 


G T PRNT 


BB46 


94 5E 


1 B 4 




CALL 


I NCTST 


BB48 


C6 AE 


IBS 




JZ 


UATCHD 


BB4A 


Fl 


1B6 




HDV 


A j BOUTBUF 


BB4B 


Bl 2B 


IB? 




HDV 


BOUTBUF , I2BH 


BB4D 


3491 


1 BB 




CALL 


F XPRNT 


BB4F 


AF 


1 B9 




HDV 


JUNK 1 < A 


BB5B 


B444 


1 1 fl 




JHP 


FDC1 






111 
1 1 2 




* 
S 








1 1 3 




i CASE 


1 < PRINTING LE 






1 1 4 




J F I R S T 


TD HAX 






113 








BB52 


F 1 


116 


CftSEl : 


HDV 


A < BOUTBUF 


BBS3 


34 91 


117 




CALL 


f- m% fh ft 11 T 

F X PRNT 


BB55 


AF 


118 




HO V 


J UNK 1 > A 


8B 56 


Bl 2B 


119 




HDV 


BOUTBUF > 1 2BH 


BBSB 


F262 


1 2B 




JB7 


CRFDND 


BB5A 


9463 


121 




CALL 


GTPRNT 


BB5C 


94 5E 


1 22 




CALL 


I NCT ST 


BBSE 


C675 


123 




JZ 


BATCH 


BB6B 


B452 


1 24 




JHP 


CASE 1 


BB 6 2 


Bl 2B 


1 25 


CRFOHD 


HDV 


BOUTBUF > t2BH 


BB64 


BF2B 


126 




HDV 


J UNK 1 , # 2 B H 


BB66 


9463 


127 




CALL 


GTPRNT 


BB6B 


945E 


128 




CALL 


I HCTST 


BB 6 ft 


C6?5 


129 




JZ 


BATCH 


BB6C 


Fl 


13B 




HDV 


A, BOUTBUF 


BB6D 


3491 


131 




CALL 


FXPRHT 


BB6F 


B462 


132 




JHP 


CRFDND 






133 


*EJECT 







;CET THE CHARACTER 
JADJUST FOR PRINTING 
JPUT A SPACE IN BUFFER RAH 
JFOUHD A CR 

JUPDATE outbuf 

jUAIT FOR EHD 

JGET A SPACE TO PRINT 

JCO PRINT A SPACE 

JLOOP 

JCO PR1HT THE LAST SPACE 
JGO PRIHT A CHARACTER 
{CHECK OUT BUFFER 
JUAIT FOR THE END 
JGET THE CHARACTER 
JPUT A SPACE THERE 
JFIX THE CHARACTER UP 
JSAVE IT 
J LOOP 



TO RIGHT< LOADING BUFFER F R OH 



JGET THE CHARACTER 
JADJUST FOR PRIHTIHG 
J SAVE ACC 

JPUT A SPACE IH THE BUFFER 
JFOUHD A CR? 
J GO PRIHT THE CHARACTER 
JCHECK THE BUFFER 

JlS THE LAST CHARACTER BEING PRINTED? 
J LOOP 

JPUT A SPACE IH THE BUFFER HEHORY 

JPUT A SPACE IH TEHP LOCATIOH 

JGO PRIHT THE SPACE 

JCHECK THE BUFFER 

JLAST CHARACTER PRINTED? 

JGET THE NEXT CHARACTER 

JADJUST IT 

J LOOP 



11 



AP-91 



LOC OBJ SEB SOURCE STATEMENT 



134 i 

135 JTHIS ROUTINE CALLS THE LINE FEED 

136 ; 



BB71 


9478 


137 


DDLF : 


CALL 




LIHEFD 


.! STROBE LINE FEED SOLENOID 


BB73 


B4BA 


138 
139 




JHP 




PRHT 


;GO BACK TO THE PRINT ROUTIHE 






148 




/THIS 


ROUTIHE COMPLETES 


A LIHE WHEN THE PRIHT 






1 4 1 




; HEAD 


IS 


MOVING LEFT TO 


RIGHT 






142 












BB75 


27 


143 


WATCH : 


CLR 




A 


JZERO ACC 


BB76 


62 


144 




nov 




T , A 


■ ZERO TIMER 


BB77 


55 


145 




ST RT 




T 


.: START THE TIMER 


BB7B 


34BB 


146 




CALL 




LDBUF 


; GO READ THE LAST CHARACTER 


BB7A 


B9 


147 


LDOPW : 


IH 




A j PI 


/ EX AH I H PORT ONE 


BB7B 


F27A 


148 




JB7 




Loopy 


/ CHECK RIGHT HAND SENSOR 


BB7D 


65 


149 




STOP 




TCNT 


/STOP THE TIMER 


BB7E 


FD 


15B 




MOV 




A, STATUS 


/ GET THE STATUS 


BB7F 


5285 


151 




JB2 




OVR1 


/JUMP IF COHTIHUE IS SET 


BB81 


94DF 


152 




CALL 




MOTDF 


i TURN MOTDR OFF 


BB93 


53FD 


153 




AHL 




A, IBFDH 


/RESET BIT ONE 


BBSS 


53FB 


1 54 


OVR 1 i 


AHL 




A / #BFBH 


/RESET COHTIHUE BIT 


BB87 


AO 


155 




MOV 




STATUS, A 


/RESTORE STATUS 


BB88 


FA 


1 56 




MOV 




A, SAVPNT 


/GET THE SAVED STATUS 


BB89 


B271 


157 




JB5 




[>OLF 


/DO A LIHE FEED IF BIT IS SET 


BB3B 


B4BA 


158 




JHP 




PRHT 


/GO BACK TO PRINT ROUTIHE 






I 59 
















16B 




t 












161 




/ CASE 


2, 


PRINTING RIGHT 


TO LEFT, LOADING BUFFER FROM 






162 




/ MAX 


TO 


F I RST 








163 
















164 




/ 








BB8D 


Fl 


165 


CASE2 I 


MOV 




A , SOOT B UF 


J GET THE CHARACTER 


BB8E 


3491 


166 




CALL 




F X PRHT 


/ADJUST FOR PRINTING 


BB9B 


Bl 2B 


167 




MOV 




eOUTBUF , #2BH 


/PUT A SPACE IH BUFFER RAH 


BB92 


F29E 


1 68 




JB7 




FDCR 


/FIND A CR VET 


BB94 


9472 


1 69 




CALL 




DECTST 


/CHECK THE BUFFER 


BB96 


C6AE 


1 7B 




JZ 




WATCHD 


/IF ZERO WAIT FOR SEHSDR FLAG 


BB98 


BF2B 


171 




MOV 




JUHK1, *2BH 


/PUT SPACE IH TEMP LOCATION 


BB9A 


9463 


172 




CALL 




G T PRHT 


/GO PRIHT SPACE 


BB9C 


B48D 


1 73 




JHP 




CASE2 


/ LOOP 


BB9E 


BF2B 


174 


FDCRi 


MOV 




JUNK1, t 2 B H 


/GET A SPACE 


BBAB 


9463 


175 


FDCR1 : 


CALL 




GTPRNT 


/GO PRIHT THE CHARACTER 


BBA2 


9472 


1 76 




CALL 




DECTST 


/ CHECK THE BUFFER 


BBA4 


C6AE 


177 




JZ 




BATCH© 


/LEAVE IF DOHE 


BBA6 


Fl 


1 78 




MOV 




A i BOUT B UF 


/GET A CHARACTER 


BBA7 


3491 


1 79 




CALL 




FXPRNT 


/ADJUST THE CHARACTER FOR PRIHTING 


8BA9 


AF 


18B 




MOV 




JUHK1, A 


/ SAVE IT 


BBAA 


81 2B 


181 




MOV 




&OUTBUF , »2BH 


/PUT A SPACE WHERE THE CHARACTER WAS 


BB AC 


B4AB 


182 




JHP 




FDCRI 


/ LOOP 






183 


JEJECT 











12 



AP-91 



LUL 


A ft t 

OB J 


c c n 
SE B 




SOURCE 


CTATCHCUT 

sTfllcnEHT 








184 
















1 85 






TH1 S 


ROUT IHE WA1 TS FDR 


THE SENSOR FLAGS TO BE COVERED 






186 






WHEN 


PRINTING right to 


LEFT 






187 












H B H fc 


i a a a 


loo 
Jew 


• HI t,HU 


CALL 


L U d U r 


• OA DC Ah TUC IACT rUADATTCD 
> till K fc H V 1 He LHbf LnHKHLItK 


DO 


a q 

07 


107 




IN 


Hi rl 




a a d i 

BOD 1 


DcHC 


i q a 
1 9 cj 




JB6 


i) a t r> u tt 
If A 1 L- H V 


■ i n n d i c ccueoD ic u n t rnucDCh 


B B S 3 


FD 


191 




NOV 


A > STATUS 


• P C T TUC DTATIIC 

.< be i 1 He 3 1 H 1 Us 


BB B4 


52BA 


19 2 




J B 2 


V R 


< e c c tc rnuTTUiir t e c c t 
> Sec IF CONTINUE IS SET 


BBB6 


94 DF 


19 3 




CALL 


H T OF 


, t ii n ii t ii r u n T n D n r T* 

J TURH THE nOTOK OFF 


BBB8 


53F D 


19 4 




AHL 


h • t Br D H 


.i RESET BIT 1 


BB B ft 


53FB 


19 5 


V R ! 


AHL 


A tDtDU 

H > 1 o r D H 


• o c p c t dtt t 
K t o t 1 Oil S 


BB B C 


AD 


196 




HOV 


C T AT IIC A 
S 1 A I U D j ft 


• D C O T H D C CTATMC 

j Ktal UKt SlHlUb 


OB OV 


r ft 


13/ 




NOV 


A C A 11 D U T 


'OCT TUC CAUCfl CTATIIC 

i tit 1 1 He b ft V fc D SIHIUS 


BB B E 


B2 7 1 


19 8 




JB5 


D LF 


I DO A LI NE FEED 


B B CB 


B4 8 A 


1 99 




JHP 


P R N T 


f E K I T 






2 BB 
















2 B 1 






CASE 


3> PRINTING LEFT 


t n otr-UT t n a a t u p our cro conu 
ID RIGHT.. LOADING BUFFER FROM 






2 B 2 






HAX 


t r\ c t o e t 
TO FIRST 








2 B 3 












BB C 2 


F 1 


2 B 4 


CASE 3 ! 


HOV 


A > BOUT B UF 


.s G E T A CHARACTER 


BB C 3 


34 91 


2 B 5 




CALL 


r \i o D U T 

r a r K N I 


> r 1 X rUK PRINTING 


BBC5 


AF 


2 B 6 




NOV 


J U NK 1 ■ A 


i r A 11 r CUADAPTCD 

■ o A V fc CHARACTER 


BB C6 


Bl 2B 


2 B ? 




NOV 


QniiTOiic a i a u 
fc* U U 1 B U r » f 2 n 


•DIIT A C Q A P C TU TUC DHCCCD 

a pU I ft b r H L fc IN 1 He UurrcK 


a a f o 

do C B 


F2D2 


"i a o 
Z B 8 




JB? 


C R F ND 


'ICAIJC TC A PD T e CntlUA 

i LfcHVc Ir H LK lb rUUnU 


a a c a 
BBC A 


94 63 


2 B 9 




CALL 


P T D D U T 
G T PKN T 


• PA DDTUT TUC r-Li ADAPTED 

f GU PRINT THE CHARACTER 


n a r r 
B B C L 


94 72 


2 1 B 




CALL 


D E CT S T 


• PUCPfc 1 TUC Diirrrn 

JCHECK THE BUFFER 


BBCE 


C6 75 


211 




JZ 


MATCH 


ii r a ii r t r - h aii r 

JLEAVE IF DONE 


n q r. n 

BBDB 


B4 C2 


212 




JHP 


C A SE 3 


> LOOP 


BB D2 


Bl 2B 


213 


C R F H D : 


HOV 


?0UTBUF»»2BH 


i n ii t a r- r, /-, r- r~ t n Til* - n n r r r n rv a u 

.:PUT A SPACE IN THE BUFFER RAH 


BBD4 


BF 2B 


214 




HOV 


J U NK I , * 2 BH 


;GET A SPACE 


BB Db 


94 63 


M, * J* 

2 15 




CALL 


L T PRNT 


i PRINT A SPACE 


BB D8 


94 72 


216 




CALL 


D E CT S T 


.•CHECK THE BUFFER 


BB DA 


Cfc 75 


217 




JZ 


WATCH 


• tcAurr tc rinuc 

>LEAVE IF DUHE 


BB DC 


F 1 


218 




HOV 


a afiiirniir 

A , B0U T B UF 


•GET HEXT CHARACTER 


BBDD 


3491 


219 




CALL 


FXPRNT 


JADJUST IT 


BBDF 


B4D2 


22B 




JHP 


CRFND 


J LOOP 






221 


*EJECT 











13 



AP-91 



LOC OBJ SEQ SOURCE STATEMENT 



BIBB 




222 
223 




ORG 

f 


1BBH 




Bl BB 


B9 


224 


LDBUF : 


IN 


A, PI 


J RE AD PORT 1 


B1B1 


B21C 


225 




JB5 


L H MODE 


B I T 5 = H = LINE MODE 


B1B3 


120? 


226 




J BB 


ARND 


JJUHP AROUHD IF MOTOR IS OH 


Bl B5 


89B1 


227 




ORL 


PI .IB1H 


JTURH THE MOTOR OFF 


Bl a? 


92BF 


228 


ARHD i 


JB4 


HOFF 


JHO FORM FEED 


B1B9 


FE 


229 




NOV 


ft, LIHCHT 


JGET THE LIHE COUHTER 


Bl BA 


438B 


23B 




ORL 


A . *8BH 


JSET MSB 


B1BC 


ft E 


231 




MOV 


L I HCHT , A 


; RESTORE THE LIHE COUHTER 


Bl BD 


23FF 


232 




MOV 


A ■ »BFFH 


JSET ACC 


Bl BF 


721ft 


233 


HDFF : 


JB3 


HOLF 


JJUHP IF HO LIHE FEED 


Bill 


9478 


234 




CALL 


LINEFD 


;G0 DO A LF OR FF 


Bl 13 


B9 


235 


BUTLOP: 


IN 


ft, PI 


JREAD THE PORT 


Bl 14 


721fl 


236 




J B 3 


HOLF 


! WAIT FOR SWITCH TO BE RELEASED 


Bl 16 


921ft 


237 




JB4 


HOLF 


JMAIT FOR SWITCH TO BE RELEASED 


Bl IB 


2413 


238 




JMP 


BUTLOP 


1 LOOP 


Bl 10 


24BB 


239 
24B 


NOLF ! 


JMP 

t 


LDBUF 


i LOOP 






241 




JFIRST 


SEE IF ft CHARACTER IS PRESENT IN THE BUFFER 






242 










Bl 1C 


261F 


243 


LHHODE : 


JNTB 


CHAR 


J IF CHARACTER PRESENT, READ IT 


Bl IE 


83 


244 
245 




RET 

j 




;IF NOT, EXIT ROUTIHE 






246 




;IF THERE IS ft CHARACTER.. REftD IT 






247 




.: 






Bl IF 


FD 


248 


CHAR i 


MOV 


A, STATUS 


JGET THE STATUS 


B12B 


5249 


249 




JB2 


ARHD JP 


JlF COHTINUE IS SET, DON'T LOAD 


B122 


9249 


25B 




JB4 


ARNDJP 


; IF LF IS SET, DON'T LOAD 


Bl 24 


724ft 


251 




J 8 3 


LFCRCK 


J«AS CR SET, SEE IF NEXT CHAR IS LF 


Bl 26 


94D6 


252 




CALL 


G T CAR 


JGO READ A CHARACTER 


Bl 28 


3461 


253 


GOOD: 


CALL 


FXCHAR 


i HAKE SURE IT IS OK 


Bl 2ft 


AB 


254 




MOV 


? I HBUF , ft 


; $AVE CHARACTER IH BUFFER MEMORY 


Bl 2B 


FD 


255 




MOV 


ft . STATUS 


; GET THE STATUS 


B12C 


F239 


256 




J B 7 


SUB1 


JlF BIT 7 IS SET DECREMENT BUFFER 


Bl 2E 


18 


257 




IHC 


I HBUF 


J UPDATE IHBUF 


Bl 2F 


237B 


258 




MOV 


ft .#MAK + 1 


JGET TOP 


Bl 31 


D8 


259 




XRL 


A , I HBUF 


JARE WE AT THE TOP? 


Bl 32 


9649 


26B 




J H Z 


ARNDJP 


JlF HOT GET THE STATUS 


B134 


F8 


261 




MOV 


ft, IH8UF 


JGET INBUF 


Bl 35 


B7 


262 




DEC 


ft 


J CHANGE BY OHE 


Bl 36 


A8 


263 




MOV 


I HBUF, A 


iPUT IT BACK 


Bl 3? 


2449 


264 




JMP 


ftRHDJP 


JGET THE STATUS 


Bl 39 


FB 


265 


SUB 1 : 


MOV 


ft, INBUF 


JGET INBUF 


B13ft 


B7 


266 




DEC 


ft 


,'CHANGE BY ONE 


B13B 


AB 


267 




MOV 


I HBUF, A 


JPUT IHBUF BACK 


B13C 


231F 


268 




MOV 


A,#FIRST-1 


JGET THE BOTTOM OF THE BUFFER 


Bl 3E 


D8 


269 




XRL 


A, IHBUF 


JTEST THE BUFFER 


Bl 3F 


9649 


27B 




J HZ 


ARHDJP 


J IF HOT ZERO READ THE STATUS 


B141 


18 


271 




IHC 


I HBUF 


JMOVE INBUF BACK 


B142 


2449 


272 




JMP 


ARHDJP 


JGO GET STATUS 


B144 


FD 


273 


GE T ST ft i 


MOV 


ft, STATUS 


JGET THE STATUS 


B145 


1249 


274 




JBB 


ftRHDJP 


JIF BIT B SET, BYPASS 


B14? 


925B 


275 




J 84 


STBIT1 


i IF LF IS FOUND, SET THE STATUS 


B149 


83 


276 
277 


ARNDJP: 


RET 




J EXIT 






278 




JTHIS 


ROUTINE "FORCES* 


ft LF AFTER ft CR 






279 










Bl 4ft 


94D6 


28B 


LFCRCK: 


CALL 


GTCflR 


J RE AD A CHARACTER 


BMC 


23Bft 


281 




MOV 


ft , »BAH 


JGET ft LIHE FEED 


B14E 


2428 


282 
283 




JMP 


GOOD 


J JUMP BACK 






284 




JTHIS 


ROUTINE SETS THE 


STATUS BITS 






285 










Bl 5B 


FD 


286 


STBIT 1 : 


MOV 


ft, STATUS 


J LOAD THE STATUS 


Bl 51 


3259 


287 




JB1 


STPRHT 


JlF STILL PRIHTIHG, LEAVE 


Bl 53 


43B2 


288 




ORL 


A, tB2H 


JSET PRIHT BIT 


B155 


B34B 


289 




ADD 


A , I4BH 


J UPDATE POSITIOH COUHTER 


Bl 5? 


AD 


29B 




MOV 


STATUS, A 


JPUT STATUS BACK 


B158 


83 


291 




RET 




JEXIT ROUTIHE 


B159 


526B 


292 


STPRHT ! 


JB2 


BYEBYE 


JCHECK COHTIHUE BIT 


B15B 


43B4 


293 




ORL 


ft, «B4H 


JSET COHTIHUE BIT 


Bl 5D 


B34B 


294 




ADD 


ft, *4BH 


JUPDATE PRIHT DIRECTION 


B15F 


AD 


295 




MOV 


STATUS, ft 


JPUT THE STATUS BACK 


B16B 


83 


296 


BYEBYE: 


RET 




• EXIT 



297 



14 



AP-91 



LDC 


OBJ 


SE6 




SOURCE 


STATEMENT 












298 






i TH1 S 


ROUTINE "CONVERTS" 


LOVER CASE LETTERS TO 






299 




JUPPER CASE 












3BB 


fkchar' 


I 










Bl 61 


97 


3B 1 


LL K 


a 






.! C L E ft R THE CARRY 


Bl 62 


537F 


3B2 




AUI 

HnU 


A I7EU 






JSTRIP MSB 


Bl 64 


AF 


3B3 




m n u 


1 M U V 1 A 

J U n K 1 .• A 






; SAVE ACC 


Bl 65 


B3 AB 


3B4 




a t\ ft 


a « o a a u 

H , t BHD tl 






i ece IE NUMBER IS 6BH 


Bl 6? 


E67B 


3B5 




JNC 


r I HE 






IlF CABBY ISN'T SFT, JUMP 
,ir i, Hnn i ion I d c i > yunr 


Bl 69 


ff 


3B6 




M ft U 

no v 


ft * J U N K 1 






;CET ACC BACK 


Bl 6ft 


37 


387 




L-r L 


A 

ft 






,' SUBTRACT 2 B H FROM THE ACC 


Bl 6B 


B32B 


3B8 




A ft ft 

ADD 


a m i an 
ft , ffZBH 








Bl 6D 


37 


3B9 




LrL 


ft 








Bl 6E 


2474 


3 1 B 




vl n r 


r I XDUH 






■ JUMP TO TEST CR LF 


81 ?B 


37 


311 


FINE: 


CPL 


ft 






;N0i> SUBTRACT ABH FROH ACC 


Bl 71 


B3 AB 


312 




Ann 
ADD 


a a a a a u 
ft , IHhBH 








Bl 73 


37 


313 




CPL 


A 








Bl 74 


AF 


314 


FT X DUN i 


M ft U 

no v 


J U N K 1 ft 






; SAVE A 


Bl 75 


D3BD 


315 




XRL 


A , #BDH 






J I S CHARACTER A CR 


Bl 77 


967F 


316 




JHZ 


L F T E S T 






;1F IT IS HOT TEST LF 


Bl 79 


FD 


317 




HO V 


A P T A T II O 

A , STATUS 






; GE T THE STATUS 


Bl 7 A 


43B8 


318 




n ft i 


A , 4 B 3 H 






: S E T BIT 3 


Bl 7C 


AD 


319 




H ft U 

nuv 


t T AT II C A 
S 1 H 1 U b , H 






JRESTORE THE STATUS 

.' ^ L J 1 u n L lilt ij 1 rl 1 U ^ 


Bl 7D 


24 8F 


32B 




Jnr 


r 1 a r I H 






: LEAVE 


8 1 7F 


ff 


321 


L F T EST : 


nUV 


A ^ JUNK] 






j GET CHARACTER BACK 

M L 1 L. It H Ti M 1/ 1 L R D n l> ^ 


Bl 8B 


D3BA 


322 




XRL 


ft < IB AH 






JlS IT A LF 


Bl 82 


C689 


323 




JZ 


FIXUP 






;IF ITS HOT, UE ARE DONE 

> I 1 J > w If U 1 > W U n n t V W 1 1 L 


Bl 84 


FF 


324 




MOV 


A , JUNK 1 






JGET THE CHARACTER BACK 


Bl 85 


D3BC 


325 




XRL 


A , tBCH 






; IS IT A FORH FEED 


Bl 87 


968F 


326 




JHZ 


F I XF I H 






;IF HOT FORH FEED, JUHP 


Bl 89 


FD 


327 


F I X UP : 


NOV 


A, STATUS 






J GE T THE STATUS 


Bl 8ft 


43 1 B 


328 




ORL 


A , i 1 BH 






\ SE T BIT 4 


B18C 


AD 


329 




HOV 


STATUS, A 






l RETURN THE STATUS 


B18D 


345B 


33B 




CALL 


STBIT1 






;SET THE STATUS 


B 1 8F 


ff 


3 31 


F I X F I H ! 


HOV 


A, JUNK1 






■ TCT TUC CUAPAPTPD 
' Ut 1 1 HE LnHnHL 1 CK 


LOC 


OBJ 


SEB 




SOURCE 


STATEMENT 








a I aa 

Dl 70 


83 


332 




RET 








JEXIT FIXCHAR 






7 3 3 

O O J 




















334 






THIS 


ROUTINE RECOENIZ 


ES 


A LF, FF, AHD CR 






335 






DURING THE PRINT 


DPERAT I OH 






3 36 






IT ALSO FORCES ft 


SPACE 


IF A CHARACTER FOUHD 






337 






IN THE BUFFER IS 


HOT 


IN 


THE LOOKUP TABLE 






3 38 
















B 1 9 1 


AF 


339 


FXPRNT : 


HOV 


JUHK1, ft 






J SAVE ACC 


B 1 92 


D3BC 


348 




XRL 


ft , #BCH 






; F R M FEED 


B 1 94 


C6B2 


34 1 




JZ 


FFFI X 






;G0 SET FORH FEED 


B 1 9 6 


ff 


3 4 2 




HOV 


ft, JUNK 1 






J RESTORE CHARACTER 


B 1 97 


D3BD 


343 




XRL 


A, #BDH 






:SEE IF IT IS ft CR 


Bl 7 J 


T£ AD 


3 4 4 




JZ 


CRFI X 






i LEAVE IF IT IS 




r r 


3 4 5 




MOV 


A, JUNK 1 






JGET ACC BACK 


Bl 9C 


D3BA 


34 6 




XRL 


A , *BAH 






■SEE IF IT IS ft LF 


Bl 9E 


C6 AB 


34 7 




JZ 


LFFIX 






L E A V E IF IT IS 


Bl AB 


ff 


348 




HOV 


ft , JUNK 1 






;GET CHARACTER BftCK 


Bl Al 


53EB 


349 




AHL 


ft, 4BEBH 






;SEE IF IT IS ft CHARACTER 


Bl A3 


96BD 


35B 




JHZ 


I SCHAR 






; IF IT IS JUMP 


Bl A5 


232B 


351 




HOV 


A, #2BH 






:PUT A SPACE IH ACC 


Bl A7 


83 


352 




RET 








; EXIT 


BIAS 


4388 


353 


CRF 1 X '■ 


ORL 


A, *8BH 






J SET BIT 7 


Bl Aft 


83 


354 




RET 








J EXIT 


B 1 AB 


FD 


355 


L F F I X : 


HOV 


ft , STATUS 






:GET THE STATUS 


Bl AC 


432B 


356 




ORL 


ft, *2BH 






:SET LF BIT IH STATUS 


Bl AE 


AD 


357 




HOV 


STATUS , A 






:PUT THE STATUS BACK 


Bl AF 


232B 


358 




HOV 


ft , #2BH 






JGET A SPftCE 


Bl 81 


83 


359 




RET 








,'EXIT 


Bl B2 


FD 


36B 


FF F I X : 


MOV 


A , STATUS 






.! GE T THE STftTUS 


Bl B3 


432B 


361 




ORL 


ft, «2BH 






JSET LINE FEED BIT 


Bl B5 


AD 


362 




HOV 


STATUS, ft 






:PUT THE STATUS BACK 


Bl B6 


FE 


363 




HOV 


ft, L INC NT 






;GET THE LIHE COUNT 


BIB? 


438B 


364 




ORL 


ft, *8BH 






,SET BIT 7 


Bl 89 


AE 


365 




HOV 


LIHCNT, A 






;PUT LIHE COUNT BACK 


Bl Bft 


232B 


366 




HOV 


A, *2BH 






J GET A SPftCE 


Bl BC 


33 


367 




RET 








; EXIT 


Bl BD 


FF 


368 


ISCHAR: 


HOV 


ft • JUNK 1 






;GET CHARACTER BACK 


Bl BE 


533F 


369 




AHL 


ft, *3FH 






:STRIP THE TWO H3B 


Bl CB 


83 


37B 




RET 








J EXIT 



15 



AP-91 



LDC 


OBJ 


SEC 




SOURCE 


STATEMENT 








7 7 1 




> 










7 *> 5 




i T H I S 


ROUT I HE PRINTS THE CHARACTER IH THE ACC 






7 *7 T 




» 






a x r 1 

Dill 


or 

H L- 


7 7 4 


PR H T I T 


NOV 


TEMPI, A 


;SAVE CHARACTER 


B 1 C2 


E? 


3 7 5 




RL 


A 


JMULTIPLY BY TWO 


dJ to 


P 7 


7 7 6 




RL 


A 


; NULT I PL Y BY FOUR 


a i r a 


£ r 

V L- 


777 
•3> » » 




ADD 


A , TEMPI 


:ADD ONCE TO MULTIPLY BY 5 






3 78 






















NOW 


SEE WHAT PART 


OF THE LOOKUP TABLE TO USE 






3 88 










Bl t j 


£ i- 


OD 1 




XCH 


A, TEHP1 


:PUT CHARACTER IN A, TARGET IN TEMPI 


a i r c 
ol lb 


o j r (i 


TOO 
£ O t 




0B5 


SHORT 


:JUHP TO HIGH ADDRESS IF BIT 5 SET 


ol to 


d a a R 


7 ft 7 




JHP 


PAGE 1 


JGO TO FIRST PART OF LOOKUP TABLE 


Hi tH 


olRB 


7 Q d 
•5 O *t 


cuncT * 

3nUK 1 > 


JHP 


PAGE2 


;G0 TO SECOND PAGE OF LOOKUP TABLE 






-? o e 

3 8 5 
















3 8 6 






THIS 


R OUT I HE TRIGGERS THE SDLEHOI OS FOR fcBB H1CR0SEC0H0S 






7 ft 7 
OO f 






AFTER WAITING FDR 


THE TRIGGER SIGNAL FROM THE PRINTER 






7 ft ft 






* 






n i r r 

Dl 11 


h r 


7 ft ^ 

o o y 


p 1 p p ■ 

r 1KC 1 


NOV 


JUNK1, A 


JSAVE THE ACC 


8 1 C D 


p o 


7 q a 




NOV 


A, STATUS 


;GET THE STATUS 


BICE 


D2D4 


3 91 




JB6 


HT1 


;SEE IF FORWARD OR BACKWARDS 


Ol I'D 




TOO 

•J .7 c 


F 1 REX f 


JT1 


F I RE X 


;WAIT FOR Tl 


D 1 U t 


7 d n a 

£ HUD 


3 9 3 




JHP 


FIREY 


1 LEAVE 


B 1 D 4 


4 6 D4 


3 9 4 


N T 1 : 


JNT1 


NT 1 


; LOOP 


B 1 D 6 


p p 


3 9 9 


F J R E Y ; 


NOV 


A, JUNK 1 


J GET ACC BACK 


BID? 


9B 


3 9 6 




HOVK 


BRB, A 


; TRIGGER THE SOLEHOID 






397 
















398 






HOW 


KILL BBS MICROSECONDS 






399 












a i ho 

Dl I/O 


37 P 7 


4 a a 
too 




NOV 


A. »BF3H 


> LOAD DELAY NUMBER 


HI UH 


b tL 


■* o 1 




HOV 


T, A 


;PUT IT IH TIMER 


n i no 


J 3 


4 n 7 
to* 




STRT 


T 


; START THE TIMER 


OU'L 


t A P R 
1 DCD 


d fl 7 
t D 3 


T C J TC • 


JTF 


KTDUN 


;LOOP OH TIMER FLAG 


BIDE 


24 DC 


4 B4 




JHP 


TSJTF 


J 


B1EB 


2? 


4B5 


KTDUH ! 


CLR 


A 


JZERO ACC 


Bl El 


9B 


4B6 




HDVX 


BRB, A 


JTURH OFF SOLEHOIDS 


B1E2 


63 


4B7 




STOP 


TCNT 


;STOP THE TIMER 


B1E3 


83 


4B8 




RET 




;EXIT FIRE ROUT I HE 






4B9 


*EJECT 











16 



AP-91 



LDC OBJ 



SE 6 



SOURCE STATEMENT 



82BB 

B2BB 3E 

B2B1 41 

B2B2 5D 

B2B3 59 

B2B4 4E 

B2BS ?C 

B2B6 12 

B20? 11 

82 BB 12 

B2B9 7C 

B2BA ?F 
B2BB 49 
B2BC 49 
B2BD 49 
B2BE 36 

B2BF 3E 
B21B 41 
B211 41 
8212 41 
B213 22 

B214 ?F 

B215 41 

B216 41 

821? 41 

B218 3E 

B219 ?F 

B21A 49 

B21B 49 

B21C 49 

B21D 41 



41B 
411 
412 
413 
414 
415 
416 
41? 
418 
419 
42B 

421 TABLE 1 

422 

423 

424 

425 

426 

427 

428 

429 

43B 

431 

432 

433 

434 

435 

436 

437 

438 

439 

44B 

44 1 

442 

443 

444 

445 

446 

447 

448 

449 

45B 

451 

452 

453 

454 

455 

456 *EJECT 



;a>ll1lt>ll>«ltt(:Mt*<lM1t:|llltt>l4a:)ltlMMtttM«ttlt«t«t«tttt 

i 

!THIS IS THE LOOKUP TABLE. THE MSB IS HOT USED, THE MSB - l 
JlS THE DOT THAT IS THE TOP OF ANY GIVEN CHARACTER AND THE 
;LSB IS THE El D T THAT IS THE BOTTOM OF ANY GIVEN CHARACTER 

.! ***************** ***************** ************************* * * * * 



ORG 

l * 

DB 

DB 

DB 

DB 

OB 

DB 
DB 
DB 
DB 
DB 

DB 
DB 
DB 
DB 
DB 

DB 
DB 
DB 
DB 



DB 
DB 
DB 
DB 
DB 

DB 
DB 
DB 
DB 
DB 



2 BBH 

3EH 
4lH 
5DH 
59H 
4EH 

?CH 
l 2H 
l lH 
l 2H 
7CH 

7FH 
49H 
49H 
49H 
36H 

3EH 
4lH 
4lH 
4lH 
22H 

7FH 
4 lH 
4lH 
4lH 
3EH 

?FH 
49H 
49H 
49H 
4lH 



* * * a 

* * a 
*** 



******* 

; * * * 
; * * * 

* * * 
* * * * 

j ***** 

* * 

* * 

i * * 

; * * 

******* 
; * * 
j * * 



******* 

* * * 

* * * 



17 



AP-91 



LDC 


OBJ 


SE Q 


bUUKlb 


b I H f t n t H [ 










A ft 7 

4 5 7 










a *) t r 
82 1 t 


7 c 


4 5 8 


ft D 


? F H 




* * * * * * * 


82 1 F 


B9 


4 59 


DB 


B9H 


; 


* * 


B2 20 


a a 


4 60 


DB 


B 9 H 


t 


* * 


B2 21 


B9 


4 61 


DB 


B 9 H 


i 


+ * 


8 2 d d 


a i 
81 


A £. 7 

4 6 2 


ft D 

DB 


□ 1 u 

pin 


* 


♦ 






J £ 1 

4 6 3 










B2 23 


3 E 


4 6 4 


DB 


3 E H 




■* * * * * 


B2 24 


41 


4 6 5 


DB 


4 1 H 




* * 


a o o ft 


4 1 


A £. £. 

4 66 


DB 


4 1 H 


i 




□ 1 o c 
DctD 


51 


4 £ 7 

4 6 f 


ft d 
DB 


ft 1 u 

5 1 H 


> 


* # * 




7 i 


a c. a 
4 6 8 


n a 
V B 


? 1 H 


> 


* 'A * * 






4 £ B 
4 6 7 










M c d o 


r r 


4 7 fl 


U B 


7 C U 

r r H 




******* 


B 2 2 9 


a o 

DO 


4 7 1 


n D 

U D 


BBU 

Bon 




* 


O d d H 


a a 
HB 


4 7 7 
* f d 




BBU 

Bon 






B22B 


B8 


A 7 7 

4 7 3 


ft a 

I'D 


a o u 
Bon 


* 


* 


uddL 


7r 


4 7 4 

4 7 4 


UB 


7 C U 

f r n 




******* 






4 7V 

4 7 5 










B2 2D 


BB 


4 7 £ 

4 7 6 


U B 


BBU 

HUH 


* 




B2 2 1 


4 1 


4 7 7 
4 f f 


ft d 

V B 


4 1 n 






a 7 *> c 
HZ Zr 


f r 


4 7 

4 7 a 


n b 
U B 


7 c u 




******* 


B2 3B 


4 1 


4 7 a 

4 7 9 




4 1 tt 






boh 
Be 3 1 


a a 

DO 


a a a 
Ion 




BBU 

Dun 










4 O 1 

4 8 1 










d e J c 


7B 
dO 


4 O 7 

lot 


rt d 
UB 


9 tt ll 

ton 


1 




B 7 7 7 

HZ J j 


4 B 


4 O 7 

4 B 3 


ft D 
U B 


A B U 

4 B n 




* 


B 2 3 4 


4B 


4 O 4 

4 8 4 


UB 


4 B H 


i 


* 


Q T e 

8235 


j a 
4b 


4 O ft 

4 85 


ft D 

UB 


4 B U 

4 B H 


* 




b 7 7 £ 


3r 


a a £. 
4 86 


ft D 

DB 


7 c u 
3 r n 


i 


****** 






4 O 7 

4 8 7 










82 3 7 


r r 


4 O O 

4 B 8 


ft D 
U D 


7 c u 
r r n 


'} 


******* 


a 7 i d 
82 38 


8 8 


4 o a 
4 89 


ft D 
U D 


B O U 

Bon 


t 




ana 
HZ 39 


t 4 

1 4 


4 a a 
4 9B 


ft D 

UB 


1 A U 

1 4 n 




* * 


B2 3 A 


22 


a a i 
4 9 1 


ft Q 

UB 


d H 


J 




B2 38 


4 1 


4 a 7 
4 92 


ft D 

U B 


4 i tl 

4 1 n 










4 a 7 
4 9 3 










a 2 3 c 


7 c 
7F 


a a a 
4 9 4 


ft D 

DB 


7 c u 
7 r H 




******* 


B23D 


4B 


a a c 
4 9 5 


ft D 

DB 


4 B tl 

4 B H 


s 




B23E 


a a 
4B 


j n / 

4 9 6 


ft & 
UB 


4 □ U 

4 B H 






B23F 


j a 
4B 


4 a 7 
4 9 7 


ft D 

DB 


>t a u 
4 8 H 


'} 


* 


■ 24B 


.< a 
48 


4 a o 
4 9 8 


ft D 

U B 


4 B U 

4 B n 


* 








4 a a 
4 9 9 










B24 1 


-9 r 

7r 


•t a d 

5 BB 


ft D 

U B 


7 r u 
> r n 




******* 


an a "> 
ad^t. 


a 7 
ad 


ft a * 


ft D 


B 3 11 
Ben 


9 




H B 4 3 


or 
at 


ft B 7 


ft R 


Df U 

Din 


* 




□ d 4 4 


ad 


ft m 


ft R 
U B 


□ en 


> 




HZ4 5 


7C 

f r 


en j 
D B 4 


ftO 
UB 


7 P U 

f r n 


f 








5B5 










B24b 


7F 


5B6 


DB 


?FH 


; 


* 4 * * 4* * 


B24? 


B4 


5B? 


DB 


84H 




4 


B248 


BB 


5B8 


DB 


B8H 




4 


B249 


IB 


519 


DB 


1 BH 




4 


B24A 


7F 


SIB 


DB 


7FH 


i 


4 44 4 444 






51J *EJECT 











18 



AP-91 



L U L 


AD 1 
Ub J 


ceo 




STATEMENT 








if g 
31c 








a "t ad 

U e 4 B 


jiff! 




DB 


3EH i ***** 


n o 4 r 


4 1 
* 1 


■8 f A 
3 14 


Fi B 
I'D 


4 1H 


* * 




* 1 


3 13 


n B 


41H ; * » 


a o 4 c 
Be q t 


4 1 


3 1b 


UB 


4 1H ; * » 


Be 4 r 


"IE 
J t 


3 1 r 


U B 


3EH ; ***** 






tin 
3 18 










7 C 

r r 


BIB 
3 17 


r i D 
UB 


7FH 


******* 


3 2 51 


B9 


328 


t\ B> 

UB 


B9N 


• • 




D Q 
a 7 


■1 9 1 

3 e 1 


ftB 
UB 


B9H 


* * 




BQ 
a 7 


3 Z Z 


UB 


B9H 


* • 


OOti 

Mi 




EOT 

91 d 


Up 


B6N 


*• 






3 Z 4 








■ i 33 


7 C 
OC 


9 «t 

3 2 3 


U B 


3EH 


***** 


■2 3b 


4 1 


K 7 £. 

3 Z b 


ft & 

UB 


4 1 H 


* • 




3 1 


3 Z r 


UB 


51H 


* * * 


B 2 5 6 


2 1 


Deo 


UB 


21H 


* * 


■ t J 7 


D t 


3 Z 7 


hB 

UB 


5EH 


* * * * * 






3 JB 








a *> * t\ 

DC Jn 


f r 


e7i 


UB 


7 F H .: ******* 


B 2 5 B 


89 


E 7 1 

5 32 


Do 


B 9 H 


1 * • 


■C 3 L 


1 7 


E7T 


ft B 
U B 


1 9H 


* * * 


He 31/ 


9 Q 

e 7 


E7J 
3 O *t 


ftB 
UB 


29H 


* * * 


Be Jt 


A £ 

1 b 


E7B 

3 


ftB 
UB 


4 6H 


* *• 






ET£ 

3ob 








He Or 


9£ 

Zb 


3 Or 


UB 


26H 


• ** 


He oB 


A Q 

4 7 


CIO 

3#a 


ft D 

PB 


49H 


* * * 


a o £ 1 
Heel 


4 B 
* 7 


3 7 


ft B 
U D 


49H 


* * * 


ocOt 


^7 


3tfl 


ft B 
I' B 


49H 


* * * 


Hibi} 


tie 


3^1 


ft R 
U B 


32H 


** * 






C ^ 1 
3 4 2 








□ 1 £ il 
« t O H 


B 1 
H 1 


EiT 

34 J 


ftB 
UB 


BID 


* 


HZ b 3 


H 1 


■ i j 
3 4 4 


ftB 
UB 


B 1 H 


* 


II 9 £ £ 


r 1* 


3 4 3 


ftB 
U B 


7FH 


******* 


Q 9 £ 7 

He br 


a i 
U 1 


3 4b 


ft B 
U B 


BIN 


* 


a 9 £ 


B 1 
U 1 


e; a 7 
3 4 i 


ftB 
UB 


B1H 


* 






3 4 o 








a 9 £ fit 
H c b 7 


7 C 

or 


3 4 7 


ftB 
UB 


3FH 


****** 


a o e a 
He BH 


A D 

4 H 


3 3 H 


ft O 
UB 


4 BH 


* 


CI 7 £ D 

Be b B 


4 B 


3 3 1 


ftB 
UB 


4 BH 


* 


82 bC 


a a 
4H 


3 32 


OB 


4 B H 


» 


fl 2 fo D 


3F 


K BE 7 

3 3 O 


f\ D 

£>B 


3FH 


****** 






55 4 








82 bE 


1 F 


etc 
33 3 


ri d 
UB 


1FH 


***** 


82 6 F 


28 


5 5 6 


Ud 


2 B H 


* 


He < H 


4 B 


3 3 r 


ft B 
U B 


4 BH 


* 


8 2 71 


2B 


c c a 

3 3b 


ft D 
U B 


2BH 


• 


82 r 2 


I r 


EEQ 

337 


ft B 
U B 


1 FH 


***** 






3 b H 








BO?? 

Herd 


7 C 


3 b 1 


ft B 
U B 


7FH 


******* 


He f 4 


ZH 


c 7 
3 b 2 


ft B 
U B 


2BH 


* 


B 9 71 
He f 3 


1 B 
1 


1 £ 7. 
3 b 


ft B 
U B 


1 3H 


* * 


B276 


28 


564 


DB 


2BH 


* 


B27? 


7F 


565 


DB 


7FH 


******* 






566 *EJECT 









AP-91 



LOC 


OBJ 


SEC 


SOUPCE 


STATEHEHT 








567 








B278 


63 


568 


DB 


63H 


* * * * 


B279 


1 4 


569 


DB 


1 4 H * * 


H27A 


B8 


5 7 8 


DB 


B8H J * 


B27B 


1 4 


5 7 1 


DB 


1 4H 


* * 


B27C 


63 


572 


DB 


6 3 H ; * * * * 






573 








B27D 


B3 


574 


DB 


B3H 


»* 


B27E 


B4 


575 


DB 


B4H 


* 


B27F 


78 


5 7 6 


DB 


78H 


• *** 


B28B 


B4 


577 


DB 


B4H 


* 


B281 


B3 


578 


DB 


B3H 


* 4 






579 








B282 


61 


58B 


DB 


61H 


« * * 


B283 


51 


58 1 


DB 


51 H ; * * * 


B284 


49 


582 


DB 


49H 


* * * 


B28S 


45 


583 


DB 


45H ; * * * 


8286 


43 


584 


DB 


43H ; * ** 






585 








B287 


7F 


586 


DB 


7FH ;**«»*** 


B288 


7F 


587 


DB 


7FH ;»***.■♦** 


B289 


4 1 


588 


DB 


4 1 H ; * * 


B28A 


4 J 


589 


DB 


4 1 H > * * 


B28B 


41 


59B 


DB 


4 1 H ; * * 






591 








B28C 


B2 


592 


DB 


B2H 


• 


B28D 


B4 


5 9 3 


DB 


B4H 


* 


B28E 


88 


5 9 4 


DB 


B8H 


* 


B28F 


1 B 


5 9 5 


DB 


1 BH 


* 


B29B 


2B 


5 9 6 


DB 


2 8 H 


* 






59 7 








9291 


4 1 


598 


DB 


41H I * * 


B292 


4 1 


599 


DB 


4 1 H 


• * 


B293 


41 


6BB 


DB 


41H i * * 


B294 


7F 


6B 1 


DB 


7FH .:*»**»«* 


B295 


7F 


6B2 


DB 


?FH ; »***»*» 






6B3 








8296 


1 B 


6B4 


DB 


1 BH 


* 


B297 


B8 


6B5 


DB 


B8H 


* 


B298 


B4 


6B6 


DB 


B 4 H 


» 


8299 


BB 


6B7 


DB 


B3H 


* 


B29A 


IB 


688 


DB 


1 BH 


* 






689 








B29B 


4B 


6 1 B 


DB 


4BH 


* 


B29C 


4B 


61 1 


DB 


4BH 


» 


B29D 


4B 


612 


DB 


4 BH ; * 


B29E 


4B 


613 


DB 


4 BH ; * 


B29F 


4B 


614 


DB 


4 B H i • 






615 *EJECT 









20 



AP-91 



LDC 


OBJ 


SEO 




SOURCE 


STATEHEHT 








616 




I 






B2AB 


BBBB 


61? 


PAGE1 1 


NOV 


STBCNT , «BBH 


J ZERO STROBE COUNTER 


B2A2 


FA 


618 




NOV 


A , SAVPNT 


JGET DIRECTION 


B2A3 


3? 


619 




CPL 


A 


JFLIP BITS 


B2A4 


D2B3 


62B 




JB6 


8 A KURD 


J IF BACKWARD JUHP OUT 


B2A6 


FC 


621 


LKLO: 


NOV 


A , TENP 1 


J GET THE TARGET 


B2A? 


A3 


622 




HDVP 


A , 8A 


JGET THE DATA 


B2A8 


34CC 


623 




CALL 


FIRE 


.! STROBE THE SOLENOIDS 


B2AA 


1C 


624 




INC 


TENP1 


J IHCREHEHT THE POIHTER 


B2AB 


IB 


623 




INC 


STBCNT 


J IHCREHENT THE STROBE COUNTER 


B2AC 


FB 


626 




NOV 


A , STBCNT 


JGET THE STROBE COUHTER 


82 AD 


03BS 


62? 




XRL 


A #B5H 


J I S IT FIVE 


B2AF 


96A6 


628 




JHZ 


LKLO 


; REPEAT IF NOT FIVE 


B2B1 


84AE 


629 




JNP 


SETT IN 


JGO BACK 


B2B3 


FC 


63B 


BAK WRD ' 


NOV 


A i TENP 1 


JGET THE TARGET 


B2B4 


B3B4 


631 




ADD 


A . t B 4 H 


JCDHPENSATE FOR GOING BACKWARDS 


B2B6 


AC 


632 




NOV 


T E HP 1 , A 


;SAVE IT 


B2B? 


FC 


633 


LKLOl : 


NOV 


A, TENP 1 


;GET THE TARGET 


B2B8 


A3 


634 




HOVP 


A . <?A 


J GET THE DATA 


B2B9 


34CC 


635 




CALL 


F I RE 


J STROBE THE SOLENOIDS 


B2BB 


FC 


636 




NOV 


A, TENP 1 


JGET TENP1 


B2BC 


B? 


637 




DEC 


A 


J DECREASE BY OHE 


B2BD 


AC 


638 




NOV 


TEHP1, A 


JPUT IT BACK 


B2BE 


IB 


639 




INC 


STBCNT 


J IHCREHENT THE STROBE COUHTER 


B2BF 


FB 


64B 




NOV 


A , STBCNT 


JGET THE STROBE COUHTER 


B2CB 


D3BS 


641 




XRL 


A, t B5H 


J IS IT FIVE 


B2C2 


96B? 


642 




JHZ 


LKLOl 


J REPEAT IF NOT FIVE 


B2C4 


94AE 


643 




JNP 


SETTIN 


J CO BACK, CHARACTER IS DONE 






644 


♦EJECT 









21 



AP-91 



IOC 


OBJ 


SEQ 


SOURCE 


STATEHEHT 










645 


; • 








B3BB 




646 


ORG 


38BH 










64? 


; • 












648 










B3BB 


BB 


649 


OB 


BBH 






B3B1 


BB 


65B 


DB 


BBH 






B3B2 


BB 


651 


OB 


BBH 


. 




B3B3 


BB 


652 


08 


BBH 


; 




B3B4 


BB 


653 


OB 


BBH 


; 








654 










B3BS 


BB 


655 


OB 


BBH 


. 




83B6 


BB 


656 


DB 


BBH 






B3B7 


5F 


65? 


DB 


5FH 




• *»:•*» 


B3BB 


BB 


658 


DB 


BBH 


• 




B3B9 


BB 


659 


OB 


BBH 


• 








66B 










033ft 


BB 


66 1 


DB 


BBH 






B3BB 


B? 


662 


OB 


B?H 


; 


** » 


83 at 


BB 


663 


DB 


BBH 


; 




B38D 


B? 


664 


DB 


B?H 


; 


** * 


B3BE 


BB 


665 


DB 


BBH 


• 








666 










B3BF 


14 


66? 


DB 


14H 


• 


* * 


B31B 


?F 


668 


OB 


?FH 


; 


******* 


83 J 1 


14 


669 


OB 


14H 


• 


• * 


B312 


?F 


6?B 


OB 


?FH 


: 


******* 


B313 


14 


6?1 


OB 


1 4H 


; 


* * 






6?2 










83 14 


24 


6?3 


DB 


24H 


. 


* * 


B315 


2ft 


6?4 


DB 


2AH 




* * * 


B316 


?F 


6?5 


DB 


?FH 


• 


******* 


B3 1? 


2A 


6?6 


06 


2 AH 


1 


* * * 


8316 


12 


6?? 


DB 


1 2H 


; 


• * 






6?8 










B319 


23 


6?9 


OB 


23H 




* ** 


B3 1ft 


13 


68B 


DB 


1 3H 


• 


* * * 


B31B 


B8 


681 


OB 


B 8 H 


■ 


* 


B31C 


64 


682 


OB 


64H 


• 


* * 4 


83 1 D 


62 


683 


OB 


62H 


• 


* * * 






684 










B31E 


36 


685 


OB 


36H 




* * * * 


B31F 


49 


686 


DB 


4 9H 




* * * 


B32B 


56 


68? 


DB 


56H 




* * ** 


B321 


2B 


688 


DB 


2BH 




* 


B322 


SB 


689 


DB 


5BH 




• • 






69B *EJECT 











22 



AP-91 



LOC 


OBO 


SE6 


SOURCE 


STATEMENT 










691 










B323 


BB 


692 


DB 


BBH 






8324 


BB 


693 


DB 


BBH 






B325 


8? 


694 


DB 


B?H 




»** 


B32b 


BB 


695 


DB 


BBH 






832? 


BB 


696 


DB 


BBH i 








69? 










B328 


1C 


693 


DB 


1 CH 




* * * 


832? 


22 


699 


DB 


22H 




* * 


B32A 


41 


7BB 


DB 


41H 




* * 


B32B 


BB 


7B1 


DB 


BBH 






B32C 


BB 


?B2 


DB 


BBH 










?B3 










B32D 


BB 


?B4 


DB 


BBH 






B32E 


BB 


7B5 


DB 


BBH 






B32F 


41 


?B6 


DB 


4 1 H 




* * 


B33B 


22 


7B7 


DB 


2 2H 




* » 


B331 


1C 


?B3 


DB 


1 CH 




*•* 






7B9 










B332 


22 


718 


DB 


22H 




* * 


B333 


14 


71 1 


DB 


1 4H 




* * 


B334 


?F 


712 


DB 


7FH 






B335 


14 


713 


DB 


1 4H 




* * 


B33b 


22 


714 


DB 


22 H 




* * 






715 










833? 


B8 


716 


DB 


B3H 




* 


B338 


B8 


71? 


DB 


BSH 




* 


8339 


?F 


718 


DB 


7FH 




******* 


B33ft 


BB 


719 


DB 


BSH 




* 


B33B 


BB 


72B 


DB 


B 8 H 




* 






721 










B33C 


BB 


722 


DB 


BBH 






83 3D 


4 B 


7 2 3 


DB 


4 B H 




* 


B33E 


3B 


724 


DB 


3BH 




* * 


B33F 


BB 


725 


DB 


BBH 






B34B 


BB 


726 

T n -> 


DB 


BBH 






B341 


B8 


729 


DB 


B 8 H 




* 


B342 


BB 


729 


DB 


BSH 




• 


B343 


B8 


738 


DB 


BSH 




* 


B344 


B8 


731 


DB 


BSH 




* 


B345 


BB 


732 


DB 


BSH 




* 






733 










8346 


BB 


734 


DB 


BBH 






B34? 


BB 


735 


DB 


BBH 






B348 


4B 


736 


DB 


4 B H 




* 


B349 


BB 


73? 


DB 


BBH 






B34ft 


BB 


733 


DB 


BBH 










739 










8348 


2B 


748 


DB 


2 B H 




* 


B34C 


IB 


74 1 


DB 


1 BH 




* 


B34D 


B8 


742 


DB 


BSH 




* 


B34E 


B4 


743 


DB 


B4H 




* 


B34F 


B2 


744 


DB 


B 2 H 




t 






745 










B35B 


3E 


746 


DB 


3EH 




***** 


B351 


51 


74? 


DB 


51 H 




* * * 


8352 


49 


743 


DB 


4 9H i 


• * * 


B353 


45 


749 


DB 


45H ( 


* * * 


B354 


3E 


758 


DB 


3EH 




***** 






751 










B355 


BB 


752 


DB 


BBH 






B35b 


42 


753 


DB 


42H 




* * 


835? 


?F 


754 


DB 


7FH 




******* 


B358 


4B 


755 


DB 


4BH 




* 


B359 


BB 


756 


DB 


BBH 










75? 










B35A 


62 


758 


DB 


62H 




* * * 


B35B 


51 


759 


DB 


51 H 




* * * 


B35C 


49 


76B 


DB 


49H 




* * » 


B35t> 


49 


761 


DB 


49H 




* * * 


B35E 


4b 


762 


DB 


46H 




* ** 






763 










B35F 


21 


764 


D8 


21H 




* * 


B36B 


41 


765 


DB 


41H 




* * 



23 



AP-91 



i ft f- 

L U I 


U to v 


r- F ft 

SEN 


J U U r! L - t 


M H i tntn 1 




R 7 £ 1 


4 9 


f t> to 


ft p 
l' to 


** ;> n 


4 *+ 4 


□ T £ O 
D .5 O c 


4 D 


r to * 


V to 


Ti U 

4 l> H 


* * :* * 


n 7 a 7 

J o •> 


7 7 


7 £ Q 

r to o 


t' to 


7 1 U 

Jon 


'4 * * 






7 £ Q 

/ to 








R 7 £ d 


t p 


( fD 


V to 


Ion 


* * 


H 7 £ c 

a o too 


1 it 


7 7 1 
f f 1 


U to 


t A U 

1 4 n 




a 7 £ t 






U to 


1 1 u 

* * M 


J * * 


a o to i 


r r 


7 7 7 


d D 


7 C U 

i r n 




a 7 £ & 

D J O o 


i B 


7 7 A 


r> d 
U d 


i a u 
Ion 


i * 






r f D 








a 7 £ o 
a J o ? 


5 7 


7 7 ii 
i f to 


r»p 

U to 


O 7 U 

£ f n 




B3 to ft 




7 7 7 

fit 


riD 
l* to 


ton 




B3&B 




7 7 Q 
t r to 


n r 

L» to 


d c . u 
f j n 




B36C 


4 5 


7 7 9 


ftp 


d s H 
t □ n 




B 3 to 


39 


7 8 B 


ft r 

L' to 


^ t n 


, # * * # 






7 8 I 








B 3 b E 


3C 


TOO 
) O £. 


ft P. 
V to 


7 r li 
<y L- n 




B 3 to F 


4 A 


7 8 3 




tl 6 W 
IHn 




B3 7B 


4 9 


7 fl <l 


ft r 

V to 


** ? n 




a 7 ? i 


<t Q 


"7 O C 

» to J 


l> to 


ABU 

4 7 n 


* 


a 7 7 o 


-2 1 
J 1 


7 D C 

f to to 


V to 


7 1 U 

sin 


j * * * 






7 Q 7 








D 7 7 7 


□ 1 
O 1 


7 83 


Uto 


Bin 


t # 


a 7 7 ^ 


7 1 


7 8 9 


Uto 


7 1 H 


* * # 4 


B J 1 J 


a q 

Q J 


7 a a 


U to 


B 9 H 


j * •"♦ 


B 3 ? b 


8 5 


7 9 l 


DB 


B 5 H 


.! * * 


a 7 7 7 


a 7 


7 Q 3 


ft r 
u to 


Hon 








?93 








B378 


36 


794 


DB 


36H 


+ * * * 


B379 


49 


795 


DB 


49H 


; * * * 


B37A 


49 


796 


DB 


49H 


* * * 


B37B 


49 


797 


DB 


49H 




B37C 


36 


7 9 3 


DB 


36H 


; * * ** 






799 $EJECT 









24 



AP-91 



LDC 


OBJ 


SE Q 


c- n 1 1 r» r- n 

SOUrL t 


C- T i"» T c u n U T 












8BB 












B37D 


46 


8 B 1 


E> B 


4 6 H j 




* 


* * 


83 ?E 


4 9 


BB2 


DB 


49H 




* * 


* 


B3 ?F 


4 9 


8 B 3 


DB 


49H 




* * 


* 


B38B 


29 


8 B 4 


OB 


29H 




* * 


• 


B381 


1 E 


8 B 5 


DB 


1 EH 


**** 






8 B 6 












8382 


BB 


8 B 7 


DB 


BBH ; 






B333 


BB 


8 B 8 


DB 


BBH 








B384 


1 4 


8 B 9 


DB 


1 4 H 




* 


* 


B 3 8 5 


BB 


BIB 


DB 


BBH 








B386> 


BB 


8 1 1 


D B 


BBH 












812 












B38? 


BB 


8 13 


DB 


BBH 








B338 


4B 


814 


DB 


4 BH 




* 




B389 


34 


815 


DB 


34H 




+ * 




838ft 


BB 


816 


DB 


BBH 








B38B 


BB 


C 1 f 


n d 

D D 


BBH 












818 












B33C 


BB 


819 


DB 


B 8 H 




* 




B33D 


1 4 


82B 


DB 


1 4H 




* 


* 


B38E 


22 


8 21 


DB 


22H 




* 


* 


B38F 


4 1 


8 2 2 


DB 


4 1 H 




» 


* 


B39B 


BB 


8 2 3 


DB 


BBH 












824 












B 3 9 1 


1 4 


8 2 5 


DB 


1 4H 




* 


* 


B392 


1 4 


8 2 6 


DB 


1 4H 




* 


* 


B393 


1 4 


8 2 7 


DB 


1 4H 




* 


* 


B394 


1 4 


8 2 8 


DB 


1 4H 




* 


* 


83 95 


1 4 


8 2 9 


DB 


1 4H 




* 


* 






8 3 B 












B3 96 


BB 


8 31 


DB 


BBH 








B397 


4 1 


8 3 2 


B 


4 1 H 




* 


* 


B398 


22 


8 3 3 


D B 


22H 




* 


* 


B399 


1 4 


834 


D B 


1 4H 




* 


• 


B39A 


B8 


8 3 5 


DB 


B8H 




* 








836 












B39B 


B2 


837 


DB 


B2H 






* 


B39C 


Bl 


838 


DB 


B1H 






* 


839D 


59 


839 


DB 


59H 




» * * 


* 


B39E 


B5 


84B 


DB 


B5H 




* * 


B39F 


B2 


841 


DB 


B2H i 




* 






842 *EJECT 













AP-91 



LOC 


OBJ 


SE 




<i o u p r E 

i.' u I 1 r. L- c 


STATEMENT 




B3 AB 


BBBB 


8 4 3 


r h u c s. • 


M ft 'J 

n u v 


STBDNi , #BflH I ZERO STRDBE COUNTER 


Did; 


F b 

r H 


a ** 




n u v 


A, SAVPHT ;GET DIRECTION 


B3A3 


3? 


C< (1 S 






A 


FLIP BITS 


B3 A4 


D 2 B 5 


8 4 6 




v D v 


tt L* iJ Ti Ti 

B f, W R v 


IF BACKWARD JUMP OUT 


B3 A6 


FC 


8 4? 


L K H I ; 


MOV 


H .■ \ t n r 1 


P C T TUC T A D P C T 


B3 A? 


B36B 


B 4 3 




ADD 


h fbon 


ATi 1 II C T TUC T A D f- C T 
H L> v< U b 1 1 H t 1 HKliC 1 


83A9 


A3 


8 4 9 




m n v p 

n v r r 


& Q A 

H tFH 


r-CT TUC ft A T A 

lit 1 ! H t L> H f H 


B3 Aft 


34 CC 


8 5 B 




CALL 


C T DC 
r i Kb 


C T D f< D C TUC O/VI C M D T f\ C 

b I K U o e Int ijuLtHUJDb 


B3 AC 


j c 


8 51 




I HC 


TEMPI 


7 U r- e, r u r u t TUC DM T UT C t> 


B3 AD 


1 a 


8 5 2 




I H C 


C T o r - il T 
o I bin! 


TUPDCMCUT TUC CTDDDC rnilUTCO 

JNtKtfltn! Int h 1 K U t< fc I U U N 1 t K 


B3 AE 


FB 


8 5 3 




HO V 


H s I bin 1 


P C T TUC C T OflOC rr<iiu T CD 

b fc I 1 Ht blKLfbh IUUH ! fcK 


B3 AF 


D3B5 


8 5 4 




XRL 


A u a r Li 

H * b n 


TC IT CTUC 

i b it r 1 V fc 


B3B1 


96 A6 


8 5 5 




J HZ 


L K HI 


DCDCAT TC ufi T CTUC 

KfcpfcHI lr nut r IV t 


B3B3 


34 AE 


856 




J HP 


SETT 1 M 


p n & Afi 1 
U U t>HlK 


B3B5 


F C 


8 5? 


BK U RD ' 


HD V 


A TEND 1 


P C T TUC TflDTCT 
b fc f Int 1 RKlit I 


B3B6 


B364 


8 5 3 




ADD 




rnMPCuCATc c no rn t u p DATfUAcnc 
tUnrcKsHI c rvK uulnu DHLr. ■Hnf a 


B3B8 


AC 


85 9 




M V 


TCMDt A 
I t n r 1 H 


CAUC T T 


B3B9 


F C 


8 6 B 


L K H 1 1 ' 


HD V 


A T C M P t 

H ! tnr J 


PPT TUC T fi P T C T 


B3BA 


A3 


86 1 




HD VP 


ft i «A 


GET THE DATA 


B3BB 


34 CC 


862 




CALL 


F 1 RE 


STRDBE THE SOLENOIDS 


B3BD 


FC 


B 6 3 




HD V 


ft, TEMPI 


GET TEMPI 


B3BE 


B? 


864 




DEC 


A 


DECREASE BV OH E 


B3BF 


AC 


865 




HO V 


TEMPI, ft 


PUT IT BACK 


B3CB 


1 B 


866 




I HC 


STBCNT 


1HCREMEHT THE STROBE COUNTER 


B3C1 


FB 


86? 




HOV 


ft, STBCMT 


GET THE STROBE COUHTER 


B3C2 


D3B5 


863 




XRL 


A, *B5H 


IS IT FIVE 


B3C4 


96B9 


869 




vlH2 


LKH11 


REPEAT IF NOT FIVE 


B3C6 


84AE 


8?B 




JHP 


SETT IN 


GO BACK, CHftRftCTER IS DO H E 






871 


*E JECT 









26 



AP-91 



LOC 


OBJ 


SEQ 




SOURCE 


STATEMENT 








872 




> 






B4BB 




873 




ORG 


4 BBH 








874 




* 






B4BB 


2? 


875 


BGI H : 


CLR 


A 


J Z E RO ftCC 


B4B1 


9B 


876 




MOVX 


8RB, ft 


JTURN OFF THE SOLENOIDS 


B4B2 


94BB 


877 




CftLL 


SETUP 


;SET UP THE PRINTER 


B4B4 


943F 


878 




CALL 


VftRSET 


JSET UP THE SOFTWARE 


B486 


84 8ft 


879 




J HP 


PRHT 


:GO START 






88B 










B4B8 


23FE 


88 1 


SETUP : 


HBV 


ft , iBFEH 


.; LOAD ACC WITH VALUE TO TURH OH 


B4 Bft 


39 


882 




OUTL 


P 1 , ft 


JTURH OH MOTOR 






883 














884 




s HOW 


DELAY 3.2 SECONDS 


WHILE CHECKIHG RIGHT SEHSDR 






885 










B4BB 


BCB5 


886 




MOV 


TEMPI , tB5H 


; LO AD DELAY VALUE ONE 


B4BD 


BFFF 


887 


SELFC : 


MOV 


JUHKl,t8FFH 


; LOAD DELAY VALUE TWO 


B4BF 


BE F F 


883 


SELFB : 


MOV 


LIMCNT, # F F H 


,'LDAD DELAY VALUE THREE 


B411 


B9 


889 


SELFft : 


1H 


A , PI 


J RE AD PORT ONE 


B412 


3? 


89B 




CPL 


ft 


:> MAKE THIHGS RIGHT 


B413 


F21D 


891 




JB7 


DONER 


; IS BIT 7 SET? 


B41S 


EE11 


892 




DJHZ 


L I HCNT , SELFft 


;SMALL LOOP 


B4 1? 


EF8F 


893 




DJHZ 


JUHK1, SELFB 


.:BIGGER LOOP 


B419 


ECBO 


894 




DJHZ 


TEMPI, SELFC 


.! BIGGEST LOOP 


84 IB 


845ft 


895 




JMP 


ERROR 


; SOMETHING IS WRONG 






896 














897 




:NOW 


MAKE SURE THE RIGHT SENSOR IS CLEARED 






898 










04 ID 


BFFF 


899 


DONER : 


MOV 


JUNK 1 , iBFFH 


:SET UP DELAY 


B41F 


BE F F 


9B8 


SELF : 


MOV 


L I NCHT , *0FFH 


.< SOME MORE DELAY 


B421 


B9 


9B1 


SELF1 : 


IH 


ft , PI 


.:GET THE FLAG IHFORMATIOH 


B422 


F22ft 


9B2 




J B 7 


DONEF 


US FLAG CLEARED? 


B424 


EE21 


9B3 




DJHZ 


L 1 NCHT , SELF 1 


i IF HOT LOOP 


B426 


EF1F 


9B4 




DJHZ 


JUNK1, SELF 


;LOOP SOME MORE 


8428 


345ft 


9B5 




JMP 


ERROR 


; LEAVE IF FLAG IS NOT UNCOVERED 






9B6 














9B7 




; HOW 


CHECK THE LEFT SENSOR IN THE SAME M ft H HE R AS THE 






9B3 




,-RIGHT SENSOR.. EXCEPT 


DELAY ONLY 2 . 5 SECONDS 






9B9 










34 2ft 


BCB4 


918 


DONEF I 


MOV 


TEMPI »84H 


;LDAD DELftY 1 


B42C 


BFFF 


91 1 


SELFCC 


MOV 


J UHK 1 , #BFFH 


:LDAD DELftY 2 


B42E 


BEFF 


912 


SELF8B 


MOV 


L I HCNT . »8FFH 


LOAD DELftY 3 


B43B 


B9 


913 


SELFAft 


IN 


A, PI 


i READ THE PORT 


B431 


3? 


9 1 4 




CPL 


A 


; C H A H G E THIHGS AROUHD 


B432 


023C 


915 




JB6 


DONEL 


;OK IF BIT 6 IS A ZERO 


B434 


EE3B 


916 




DJNZ 


L I HCNT , SELF Aft 


J SMALL LOOP 


04 36 


EF2E 


9 1 7 




DJHZ 


JUNK 1 , SELFBB 


JBIGGER LOOP 


B43B 


EC2C 


918 




DJ HZ 


TEMPI, SELFCC 


.: BIGGEST LOOP 


B43A 


845ft 


919 




JMP 


ERROR 


^SOMETHING IS WRONG 


B4 3C 


8981 


92B 


D H E L : 


ORL 


P ! , * 1 H 


;TURH MOTOR OFF 


B43E 


83 


92 1 




RET 




i#| BACK 






9 2 2 
923 




;hou 


SET UP THE VARIABLES 


B4 3F 


23FE 


924 
925 


V A R SE T 


MOV 


ft, »BFEH 


;LDAD THE TINER 


B4 4 1 


62 


9 2 6 




MOV 


T , A 




B442 


55 


927 




STRT 


T 


j START THE TIMER 


B443 


B82B 


928 




MOV 


I H8UF, t F I R S T 


;load ihput buffer 


B445 


BE BB 


929 




MOV 


L 1 HCNT *0BH 


:SET L I HE COUNT 


B447 


BDBB 


93B 




MOV 


STATUS, *OBH 


i SET FORWARD 81 T 






931 














932 




;HOB 


CLEAR THE RAM ft RE A BY WRITING SPACE CODES 






933 










8449 


B92B 


934 




MOV 


BUTBUF , »F IRST 


; LOAD OUTBUF 


B44B 


232B 


935 


C L R tl E tl 


MOV 


A, *2BH 


:PUT SPACE CODE IH ftCC 


84 4 [i 


Al 


936 




MOV 


80UTBUF , A 


;PUT SPACE CODE IN DATA MEMORY 


844E 


19 


937 




INC 


OUTBUF 


JUPDATE THE POINTER 


B44F 


F9 


933 




MOV 


ft, OUTBUF 


:MOVE THE POINTER IHTA ACC 


B45B 


D3?B 


939 




XRL 


A , * M A X + 1 


;SEE IF DONE 


B452 


9648 


94B 




JHZ 


CLRMEM 


;LOOP IF HOT CLEARED 






94 1 
942 




J HOW 


CLEAR THE 3212 








943 










B454 


99EF 


944 




AHL 


PI , 1 BE F H 


JSET ENABLE BIT 


B456 


3B 


945 




MOVX 


A , 91 HBUF 


CLEAR THE 8212 IHPUT BUFFER 


B457 


3918 


946 




ORL 


PI ,#1BH 


; RESET ENftBLE BIT 






947 











27 



AP-91 



LDC 


OBvl 


SE B 




S U P C E 

w 1 \f v rt L- l_ 










948 






EXIT VARSET 








949 




> 






8459 


83 


95B 




RET 




LEAVE INITIALIZATION 






951 




* 










952 




;THI s 


ROUTINE TURNS 


THE MOTOR OFF AND LOOPS 






953 










B 4 5 ft 


39FF 


954 


ERROR : 


ORL 


PI ,*0FFH 


S TURN OFF MOTOR 


B45C 


84 5C 


955 


DEAD: 


JMP 


DEAD 


;LOOP BECAUSE SOMETHING IS WRONG 






956 














957 




;THESE ARE ALL SUBROUTINES THAT ARE CALLED 






958 




I 






B45E 


19 


959 


IHCTSTi 


JUC 
i n t» 


n 11 T R II F 
u u ( pur 


' (1 P f> ft 7 F TUP PDTMTPP 


B45F 


237B 


96B 




m n y 
n u h 


ft U M i-l V -f- 1 


■HPT THF V ft I 1 1 F PftP TUP IftCJT PHftPftPTFP 
■ o c i i n c v h l u c run inc l h o i t rt h k h t i crc 


B461 


D9 


96 1 




y p t 

nK L 


ft fi 11 T R It F 
h .■ uu i pur 


■ f > fi THF T F Q T 
.' i' u inc icsi 


8462 


83 


962 




RET 




; EXIT 


8463 


B9 


963 


GTPRHT : 


I H 


ft j P 1 


1 P F ft ft PfiPT fi H F 


0464 


37 


964 




C P L 


A 


.' r L I r Olid 


B465 


D263 


965 




■J B 6 


£ T PRH T 


■' L u u r unfit. >?cn3UK io u in- u v t n l y 


846? 


166B 


966 


TST JTF : 


JTF 


PIT 


■ etc tc TTMPP FlftR I <; CCT 


B469 


8467 


96? 




J HP 


T S T J T F 


: T F 3 T F 1 A 


B46B 


65 


968 


PJ T ! 


Q T fi P 


T C H T 


; CT np THF TTMPP 
.'Dtur inc linen 


B46C 


FF 


969 




H n V 


ft I If H k' 5 


' T THF THftPftrTFP 


B46t> 


34C1 


97B 




P ft i i 


r n n I 1 i 


■PP7UT T14F f'UftPftPTFP 
^rKiHI Inc Lrtnli 1 CK 


B46F 


341C 


971 




L- H L L 


1 M H ft F\ C 


■PPT ftMflTUFD PUftPftPTPP 


B471 


33 


972 




or T 
K C 1 




C n J. 1 


B472 


F9 


973 


DECTST; 


w n u 

nL'V 


ft fi II T ft II F 


•TFT flllTPHF 
La t 1 UU 1 DUr 


B473 


B7 


974 




V t L 


H 


■ P F f 1 1 1 P F R V (IMF 
,• nCL'Ul-C Of UnC 


B474 


A9 


975 




m n u 


ft II T R 11 F ft 


■PUT RftPlc' I U nilTRIlP 
.■ r U 1 O H L- fx In UU 1 DUr 


B475 


D31F 


976 




V P 1 


ft aF ICQT- 1 
H / 9 r I K o I I 


> ecc tc it ftll TUF UftV H ft U M 
3 C C 1 r 11 Is HLL IriC HHf UUWn 


B477 


33 


977 




RET 




; EXIT 






978 














979 




> 1 n J d 


P ft 11 T T M P ft ft F *5 ft 
KM L< line L'UtO H 


I I up pec fi 
L1I1C rCtU 






98B 










B478 


FE 


981 


LI HEFD ! 


M ft V 
nuv 


ft , 1 T HTHT 
M L i n L - PI t 


:PFT THF I T HP PnilHT 
>uci inc Line L-uuni 


B479 


F29B 


982 




UB? 


DOFF 


5 JF BIT 7 IS SET , DO A FORHFEED 


B47B 


99F[> 


983 


LFDO: 


ANL 


P 1 , IBFDH 


.:TURH OH THE SOLEHOID 


B470 


BC4D 


984 




MDV 


TEMPI, MDH 


LOAD OH £ DELAY 


B47F 


BF93 


985 


LFLP1 : 


HOV 


JUHKi, #93H 


LOAD AHOTHER DELAY 


3481 


EF81 


986 


LFLP2 ; 


DJHZ 


JUNK 1 , LFLP2 


.: LOOP 


B483 


EC7F 


987 




OJHZ 


TEMPI, LFLPi 


.:L00P SOME MORE 


8485 


8982 


9B8 




ORL 


Pi , J»B2H 


:TUfiH OFF LF SOLEHOID 


OHO) 


1 F 


9 8 3 




IHC 


L 3 NCNT 


; UPDATE THE LIHE COUNTER 


8438 


FE 


998 




HDV 


A , LI HCHT 


:GET THE LIHE COUNT 


B439 


D32B 


991 




XRL 


A j *23H 


ilS PAGE DOHE 


B4SB 


968F 


992 




J HZ 


HOTDOH 


JSKiP OVER 


B48D 


BE BB 


993 




MOV 


L I HCHT , =» BBH 


.:2ER0 LIHE COUNTER 






994 














995 




.:NOW 


DELAY 9 B MILLIS 


ECOHDS 


B48F 


BC8B 


996 
99? 


NDTDON: 


HOV 


TEMPI , #3BH 


JLDAD DELAY VALUES 


B491 


BFFF 


993 


LOP1 : 


HOV 


JUHKi, #BFFH 




B493 


EF93 


999 


L D P 2 : 


DJHZ 


JUNK 1 , L0P2 


! GEHERATE DELAY 



B495 


EC91 


1 008 




DJHZ 


TEHP1, L0P1 




B497 


83 


1BB1 
1BB2 




RET 




; LI ME FEED IS DOHE 






1BB3 




;TH1 S 


ROUTINE DOES A 


F OR H FEED 






1084 










B498 


B9 


1885 


DOFF : 


IH 


A , PI 


GE T THS STATUS 


B499 


3? 


1886 




CPL 


A 


SFLIP ACC 


B49A 


53C0 


IBB? 




AHL 


A i #0C0H 


; L E ft V E DHL Y TWO MSB'S 


849C 


C698 


1BB3 




OZ 


DOFF 


: IF ft FLAG ISH' T COVERED, 


B49E 


8981 


1BB9 




ORL 


P1,»BJH 


TURN THE MOTOR OFF 


04 AB 


947B 


1B1B 




CALL 


LFDO 


:G0 DO OHE LIHE FEED 


B4A2 


FE 


1B1 1 


F F C K i 


HOV 


A , LI HCHT 


:GET THE LINE COUNT 


84A3 


537F 


1012 




AHL 


ft , « 7 F H 


;STRIP BIT SEVEN 


B4A5 


D38B 


1B1 3 




XRL 


ft, #0BH 


J IS IT DONE 


B4A? 


C6AD 


IBJ4 




it 


FFDOHE 


CLEAVE IF IT IS 


B4A9 


947B 


1B15 




CALL 


LFDO 


.: STROBE THE SOLEHOIDS 


B4 AB 


84A2 


1816 




JHP 


FFCK 


JGHECK THE FORM FEED OUT 


B4AD 


83 


1B1 7 
1B1 3 


FFDOHE ! 


RET 




.: EXIT FORM FEED 


84 AE 


23EB 


1019 


SETT! rt: 


HOV 


ft , # BE B H 


;GET DELAY VALUE 


B4BB 


62 


1028 




HDV 


T , A 


:PUT IH TIMER 


B4B1 


55 


1021 




ST RT 


T 


.! START THE TIMER 


B4B2 


83 


1B22 
1B23 




RET 




s Exn 
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AP-91 



LOC 


OBJ 


SE 6 




SOURCE 


STATEMENT 




B4B3 


42 


1B24 


PRNTBK : 


HOV 


ft, T 


S6ET THE TIMER 


8484 


3? 


1B25 




CPL 


A 


iTWOS COMPLEMENT ACC 


B4B5 


1? 


1B26 




IHC 


A 




84B6 


1? 


1B2? 




1HC 


A 




84 B? 


\? 


1B23 




IHC 


A 




B4B8 


17 


1829 




IHC 


A 




B4B9 


17 


1B38 




IHC 


ft 


S ADJUST TIMER 


B4BA 


62 


IB 31 




HOV 


T , A 


1PUT IT BftCK IN THE TIMER 


B4BB 


B9 


1B32 


IHLODP! 


IH 


A, PI 


: READ PORT 1 


B4BC 


F2CB 


1B33 




JB? 


CONPBK 


I IF SEHSOR IN NOT COVERED, 


B4 BE 


84BB 


1834 




JHP 


I HLOOP 


10THERUISE LOOP 


B4CB 


55 


1B35 


CONPBK i 


ST RT 


T 


> START THE TIMER 


B4C1 


16C5 


1B36 


CONPB ! 


JTF 


RDTOPT 


:SEE IF READY TO PRINT 


B4C3 


84C1 


1B3? 




JHP 


COHPB 


OTHERWISE LOOP 


B4C5 


23FF 


1B33 


RDTOPT : 


HOV 


ft , #BFFH 


> LOAD A 


B4C7 


62 


1839 




HOV 


T , A 


.:PUT IT IH THE TIMER 


B4C8 


83 


1B4B 




RET 




; EXIT 






1B41 




1 










1B42 




i THI S 


ROUT I HE ADJUSTS AMD SAVES THE STATUS DUR1HG 






1B43 










B4C9 


Ft> 


1B44 


ST ftCHK ! 


HOV 


A j STATUS 


I GET THE STATUS 


B 4 C ft 


92D2 


1B45 




JB4 


LFSET 


.: SE T L I HE FEED BIT 


B4CC 


AA 


1B46 


B4RET ! 


HOV 


Sft VPHT , ft 


J SAVE THE STATUS 


B4CD 


53C2 


1B47 




ft HL 


A i #BC2H 


; RESET EVERYTHING EXCEPT 






1B43 








1D1RECT10N AHD PRIHT 


B4CF 


AD 


1B49 




HOV 


STATUS , A 


JPUT THE STATUS BACK 


B4DB 


B413 


1B5B 




JHP 


LPRHT1 


E X I T 


B4D2 


432B 


1B51 


LFSET i 


OR t 


A j «2BH 


;SET BIT 5 


B4P4 


84CC 


1B52 




JHP 


B4RET 


UUHP BACK 






1B53 




; 










1B54 




1TH1 S 


ROUT I H E READS 


A CHARACTER AHD PUTS IT IH THE 






1B55 




1 






B4 D6 


99EF 


1856 


GTCftR i 


ft H L 


PI , IBEFH 


.: SE T ENABLE BIT 


B4DB 


3B 


1B5? 




HDVK 


A, BIHBUF 


.! READ THE CHARACTER 


8409 


391B 


1B58 




ORL 


P 1 , » 1 B H 


j RESET EHABLE BIT 


84 OB 


33 


1B59 




RET 




j E X I T GTCHAR 






1B68 














1B61 




J THI S 


ROUTIHE TURHS 


THE MOTOR OH 






1B62 




i 






B4DC 


99FE 


1B63 


HO T OH i 


ft HL 


PI ,IBFEH 


j TURH MOTOR ON 


B40E 


83 


1B64 




RET 




i EXIT 






1B65 














1B66 




; THl S 


ROUTIHE TURHS 


THE MOTOR OFF 






1B67 










B4DF 


89B1 


1B68 


MO T OF 1 


ORL 


P 1 > 1 8 1 H 


1 TURN MOTOR OFF 


B4E1 


83 


1869 




RET 




;EXIT 






1B7B 




; 










1B71 




EHD 




i DOHE 



USER SYMBOLS 



ft R NO 


81 Br 


ftRMDJP 


Bl 45 


C ft SE B 


BB31 


CflSEfll 


BBlf 


t OHPB 


B4C1 


CONPBK 


8 4CB 


C> L F 


BB71 


tiONEF 


842ft 


FDCR1 


BBftB 


FFCK 


B4A2 


FIRST 


B82B 


FIXDUH 


Bl 74 


GTCftR 


B4I>fc 


C T PRUT 


BO 6 3 


L [>BUF 


Bl BB 


LFCRCK 


Bl 4ft 


L1HCHT 


BBBt, 


LINEFD 


B478 


L0P1 


B491 


L0P2 


B493 


HOLF 


Bl 1ft 


HOTDOH 


B43F 


PIT 


B4 46 


PRHT 


BBBft 


S E I F A 


B4 1 1 


SELFftft 


B43B 


SHORT 


Bl CD 


S T ftCHK 


B4C9 


TEMPI 


BBB4 


T S J T F 


Bl DC 



ftSSENBLY CONPLETE, HO ERRORS 



B4RET 


B4CC 


6AKURD 


B2B3 


CASE 1 


BB52 


CftSE2 


BB8D 


CRF1 X 


Bl AB 


C R r H [i 


B802 


OONEL 


B43C 


[> N E P. 


B4 10 


FFDDHE 


84ft[> 


FFFI X 


Bl 62 


FIXFIH 


Bl 8F 


F I XUP 


8139 


1 HBUF 


BBBB 


1 HCTST 


B45E 


L F DO 


B47B 


LFF1 X 


Bl AB 


LKH1 


B3A6 


L K HI 1 


B3B9 


LPRHT 


BB 1 1 


L PRHT 1 


BB13 


H T 1 


Bl 04 


OUTBUF 


BB01 


PRHTBK 


B4B3 


PRHT1T 


Bl CI 


SELFB 


BlBF 


SELFBB 


B42E 


STATUS 


8BB5 


STBCHT 


BBB3 


TSTJTF 


B46? 


VflfiSET 


B43F 



BC1H 


84BB 


BKURIl 


B3B5 


C ft 3 E 2 3 


8824 


CASE3 


88C2 


CRFOND 


BB62 


DEAD 


84 5C 


ERROR 


8450 


FDC 


BB42 


F 1 HE 


81 7B 


F 1 RE 


Bl CC 


F X CHAR 


Bl 61 


FXPRHT 


Bl 91 


1 HLOOP 


B4BB 


I S CHAR 


Bl BD 


LFLP1 


B47F 


L F LP 2 


B481 


LKLO 


B2A6 


LKL01 


B2B7 


flftX 


BB6F 


M T F 


B4 0F 


OVR 


BBBft 


0VR1 


B88S 


RDTOPT 


B4C5 


SAVPHT 


B8B2 


SELFC 


B4BD 


SELFCC 


B4 2C 


STB1 Tl 


Bl 58 


STPRHT 


Bl 59 


HATCH 


B8 7 5 


HATCH!) 


BBAE 



BUTLOP 


Bl 13 


B V E B V E 


Bl 68 


CHAR 


81 1 F 


CLRHEH 


84 4B 


DECTST 


B472 


DOFF 


8496 


FOCI 


BB44 


FOCR 


BB9E 


F I REX 


Bl DB 


FIREV 


8106 


CETSTft 


B144 


GOOD 


81 26 


JUNK 1 


BB87 


KTOUH 


Bl EB 


LFSET 


B4 02 


LFTEST 


Bl 7F 


LNMODE 


Bl 1 C 


L OOPU 


BB7A 


MOTOH 


B40C 


HOFF 


Bl BF 


PftCE 1 


B2AB 


PAGE2 


B3A8 


SELF 


B41F 


SELF1 


8421 


SETT I H 


B4AE 


SETUP 


B486 


SU81 


Bl 39 


T ft BL £ 1 


B2BB 



29 



